4.3.10 (c+d x)^m (a+b tan)^n.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    477334,      10248]
NotebookOptionsPosition[    465484,       9949]
NotebookOutlinePosition[    467199,      10003]
CellTagsIndexPosition[    467156,      10000]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[Cell[TextData[{
  StyleBox["Rules for integrands of the form ",
   FontFamily->"Arial"],
  Cell[BoxData[
   StyleBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}],
    FontSize->16]],
   CellDingbat->None,
   CellChangeTimes->{
    3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
     3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
     3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
     3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
     3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
     3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
     3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
     3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
     3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
     3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
     3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
     3.5193325694253187`*^9, {3.5193415004828687`*^9, 
     3.5193415113404875`*^9}, {3.5193513965602303`*^9, 
     3.519351397420232*^9}, {3.5194037839416766`*^9, 3.5194037847117205`*^9}, 
     3.52105258275843*^9, 3.5210531741726685`*^9, {3.521057461672199*^9, 
     3.5210574760242243`*^9}, {3.521059881564049*^9, 3.521059886088057*^9}, {
     3.5213902158895197`*^9, 3.521390217543123*^9}, {3.521390827878595*^9, 
     3.521390829376197*^9}, {3.5214688792561245`*^9, 3.521468879443325*^9}, {
     3.523320201951167*^9, 3.523320202247567*^9}, {3.5288596764894824`*^9, 
     3.5288596768094826`*^9}, {3.529196266260353*^9, 
     3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
     3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
     3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
     3.529285215443486*^9}, {3.5295115356999426`*^9, 
     3.5295115433443794`*^9}, {3.529521412127842*^9, 3.529521414647986*^9}, {
     3.529529429975619*^9, 3.529529432955224*^9}, 3.5340074894011116`*^9, 
     3.5415537711400824`*^9, {3.5415538409034047`*^9, 3.541553841106205*^9}, {
     3.5415564120531206`*^9, 3.5415564206955357`*^9}, 
     3.5415565488341613`*^9, {3.5415605631516123`*^9, 
     3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
     3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9}, 
     3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9, 
     3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9, 
     3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
     3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9, 
     3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9,
      3.5621084519718895`*^9}, 3.563340740121106*^9},
   FontSize->12,
   FontWeight->"Bold"]
 }], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5505952613798075`*^9, 
   3.5505952630869055`*^9}, {3.5535321133435373`*^9, 
   3.5535321173537664`*^9}, {3.5536175341411576`*^9, 
   3.5536175352411594`*^9}, {3.55396599671187*^9, 3.55396599862998*^9}, {
   3.560190530310161*^9, 3.560190628512334*^9}, {3.5602162723838596`*^9, 
   3.5602162793138695`*^9}, {3.5606249190913877`*^9, 3.560624924321395*^9}, {
   3.5617663419995623`*^9, 3.5617663705796027`*^9}, {3.5617666456099873`*^9, 
   3.561766656350003*^9}, {3.562107691486154*^9, 3.5621077390350375`*^9}, {
   3.5621080165751247`*^9, 3.5621080185719285`*^9}, {3.5621081511877613`*^9, 
   3.5621081511877613`*^9}, {3.5633407304210925`*^9, 3.563340730891093*^9}, {
   3.575852587746504*^9, 3.575852593256511*^9}, {3.611794746478099*^9, 
   3.6117947468471203`*^9}, {3.6739048676136293`*^9, 
   3.6739048676136293`*^9}, {3.674163681570919*^9, 3.674163681570919*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, 3.5416917928353863`*^9, 3.5416918654707212`*^9, {
   3.5417873058670864`*^9, 3.541787319807106*^9}, {3.541789540400215*^9, 
   3.5417895530802326`*^9}, 3.541789616030321*^9, {3.5417897122304554`*^9, 
   3.5417897124504557`*^9}, {3.5417925317651196`*^9, 
   3.5417925320051203`*^9}, {3.5417934393063903`*^9, 3.5417934399563913`*^9}, 
   3.56053716793855*^9, 3.5605430857613792`*^9, {3.5605453972046156`*^9, 
   3.5605454021846223`*^9}, {3.5606182150525985`*^9, 3.560618219852605*^9}, {
   3.5606182689326735`*^9, 3.560618269682675*^9}, {3.563574880419276*^9, 
   3.563574880869276*^9}, 3.5906378878042774`*^9, {3.6735672127378864`*^9, 
   3.6735672130019016`*^9}, {3.673926051730245*^9, 3.6739260531002474`*^9}, 
   3.673928176102466*^9, 3.673928984947709*^9, 3.674055933577895*^9, 
   3.674163663265872*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"Tan", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
   3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
   3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
   3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
   3.674163353902178*^9}, 3.6741637303137074`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Tan", "[", "z", "]"}], "\[Equal]", 
   RowBox[{"\[ImaginaryI]", "-", 
    FractionBox[
     RowBox[{"2", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "z"}]]}], 
     RowBox[{"1", "+", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "z"}]]}]]}], "\[Equal]", 
   RowBox[{
    RowBox[{"-", "\[ImaginaryI]"}], "+", 
    FractionBox[
     RowBox[{"2", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", "z"}]]}], 
     RowBox[{"1", "+", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", "z"}]]}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980720108405576`*^9, 
   3.4980725492711043`*^9, 3.498073175128604*^9, {3.5154687086436205`*^9, 
   3.515468723619647*^9}, {3.5154688600730867`*^9, 3.5154688600730867`*^9}, {
   3.5607254490973887`*^9, 3.5607254490973887`*^9}, {3.56357328537794*^9, 
   3.56357328537794*^9}, {3.5635771114523993`*^9, 3.5635771114523993`*^9}, {
   3.673041826849613*^9, 3.673041826849613*^9}, {3.6974210207000165`*^9, 
   3.6974210207010164`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9, 
   3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
    RowBox[{"Tan", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], ")"}], 
         RowBox[{"m", "+", "1"}]]}], 
       RowBox[{"d", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{"2", "\[ImaginaryI]", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[ImaginaryI]", 
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], ")"}]}]]}], 
      RowBox[{"1", "+", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[ImaginaryI]", 
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], ")"}]}]]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
   3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
   3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
   3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
   3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
   3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
   3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
   3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
   3.6741637942083616`*^9}, 3.674164028543765*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
    RowBox[{"Tan", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"c", "+", 
            RowBox[{"d", " ", "x"}]}], ")"}], 
          RowBox[{"m", "+", "1"}]]}], 
        RowBox[{"d", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}]}], "+", 
  RowBox[{"2", "\[ImaginaryI]", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[ImaginaryI]", 
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], ")"}]}]]}], 
      RowBox[{"1", "+", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[ImaginaryI]", 
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], ")"}]}]]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
   3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
   3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
   3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
   3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
   3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
   3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
   3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
   3.6741637942083616`*^9}, 3.674164028543765*^9, {3.6974211454177175`*^9, 
   3.697421159517524*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"tan", "[", 
      RowBox[{"e_.", "+", 
       RowBox[{"k_.", "*", "Pi"}], "+", 
       RowBox[{"f_.", "*", 
        RowBox[{"Complex", "[", 
         RowBox[{"0", ",", "fz_"}], "]"}], "*", "x_"}]}], "]"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "I"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", 
    RowBox[{"2", "*", "I", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2"}], "*", "I", "*", "k", "*", "Pi"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"E", "^", 
          RowBox[{"(", 
           RowBox[{"2", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "I"}], "*", "e"}], "+", 
              RowBox[{"f", "*", "fz", "*", "x"}]}], ")"}]}], ")"}]}], "/", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            RowBox[{"E", "^", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "*", "I", "*", "k", "*", "Pi"}], ")"}]}], 
            "*", 
            RowBox[{"E", "^", 
             RowBox[{"(", 
              RowBox[{"2", "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "I"}], "*", "e"}], "+", 
                 RowBox[{"f", "*", "fz", "*", "x"}]}], ")"}]}], ")"}]}]}]}], 
          ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "e", ",", "f", ",", "fz"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"4", "*", "k"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741684612503014`*^9, 3.674168461964342*^9}, 3.697087188706193*^9, 
   3.6971354334957137`*^9, {3.697420877714838*^9, 3.6974208852932715`*^9}, 
   3.6974210372079606`*^9, {3.6974212132415967`*^9, 3.6974212381590223`*^9}, {
   3.697421339298807*^9, 3.6974213452091446`*^9}, 3.697422202025117*^9, {
   3.6974222332228947`*^9, 3.6974223297994184`*^9}, {3.6974223915919533`*^9, 
   3.697422392729018*^9}, 3.7154573645241847`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"tan", "[", 
      RowBox[{"e_.", "+", 
       RowBox[{"k_.", "*", "Pi"}], "+", 
       RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"I", "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    RowBox[{"2", "*", "I", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"2", "*", "I", "*", "k", "*", "Pi"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"E", "^", 
          RowBox[{"(", 
           RowBox[{"2", "*", "I", "*", 
            RowBox[{"(", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], ")"}]}], ")"}]}], "/", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            RowBox[{"E", "^", 
             RowBox[{"(", 
              RowBox[{"2", "*", "I", "*", "k", "*", "Pi"}], ")"}]}], "*", 
            RowBox[{"E", "^", 
             RowBox[{"(", 
              RowBox[{"2", "*", "I", "*", 
               RowBox[{"(", 
                RowBox[{"e", "+", 
                 RowBox[{"f", "*", "x"}]}], ")"}]}], ")"}]}]}]}], ")"}]}]}], 
       ",", "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "e", ",", "f"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"4", "*", "k"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741684612503014`*^9, 3.674168461964342*^9}, 3.697087188706193*^9, {
   3.6971354483015604`*^9, 3.6971354501016636`*^9}, 3.6971356321900787`*^9, 
   3.6971359048836756`*^9, {3.6973225320850096`*^9, 3.69732256070505*^9}, {
   3.697322599403105*^9, 3.697322611977123*^9}, {3.6973332263672476`*^9, 
   3.6973332530172853`*^9}, {3.6973332854583316`*^9, 3.697333313656372*^9}, {
   3.6973334255245333`*^9, 3.6973334268345346`*^9}, {3.6973335022086415`*^9, 
   3.6973335207086678`*^9}, {3.697334931661253*^9, 3.6973349501562796`*^9}, {
   3.697336440743661*^9, 3.697336458838687*^9}, 3.6973365096567593`*^9, {
   3.6973488456230335`*^9, 3.697348895600892*^9}, {3.697348948460915*^9, 
   3.6973489545112615`*^9}, {3.6973494609022255`*^9, 3.697349476137097*^9}, {
   3.6973977227629337`*^9, 3.6973977743128824`*^9}, {3.697421675047007*^9, 
   3.6974216788822265`*^9}, {3.6974221430517445`*^9, 3.6974221467459555`*^9}, 
   3.7154573645431857`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"tan", "[", 
      RowBox[{"e_.", "+", 
       RowBox[{"f_.", "*", 
        RowBox[{"Complex", "[", 
         RowBox[{"0", ",", "fz_"}], "]"}], "*", "x_"}]}], "]"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "I"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", 
    RowBox[{"2", "*", "I", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{
         RowBox[{"E", "^", 
          RowBox[{"(", 
           RowBox[{"2", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "I"}], "*", "e"}], "+", 
              RowBox[{"f", "*", "fz", "*", "x"}]}], ")"}]}], ")"}]}], "/", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"E", "^", 
            RowBox[{"(", 
             RowBox[{"2", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "I"}], "*", "e"}], "+", 
                RowBox[{"f", "*", "fz", "*", "x"}]}], ")"}]}], ")"}]}]}], 
          ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "e", ",", "f", ",", "fz"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741684612503014`*^9, 3.674168461964342*^9}, 3.697087188706193*^9, 
   3.6971354334957137`*^9, {3.697420877714838*^9, 3.6974208852932715`*^9}, 
   3.6974210372079606`*^9, {3.6974212132415967`*^9, 3.6974212381590223`*^9}, {
   3.697421339298807*^9, 3.6974213452091446`*^9}, 3.715457364560187*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"tan", "[", 
      RowBox[{"e_.", "+", 
       RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"I", "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    RowBox[{"2", "*", "I", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{
         RowBox[{"E", "^", 
          RowBox[{"(", 
           RowBox[{"2", "*", "I", "*", 
            RowBox[{"(", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], ")"}]}], ")"}]}], "/", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"E", "^", 
            RowBox[{"(", 
             RowBox[{"2", "*", "I", "*", 
              RowBox[{"(", 
               RowBox[{"e", "+", 
                RowBox[{"f", "*", "x"}]}], ")"}]}], ")"}]}]}], ")"}]}]}], ",",
        "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "e", ",", "f"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741684612503014`*^9, 3.674168461964342*^9}, 3.697087188706193*^9, 
   3.6971354334957137`*^9, 3.6974208729055634`*^9, 3.715457364578188*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", ">", "1"}], " ", "\[And]", " ", 
       RowBox[{"m", ">", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860803890715`*^9, 3.5620860846593156`*^9}, {3.5620873411816187`*^9, 
   3.5620873415616193`*^9}, 3.56357328541794*^9, {3.563575095149576*^9, 
   3.5635750967095785`*^9}, {3.5635775423530025`*^9, 3.563577542633003*^9}, 
   3.590637944554357*^9, 3.673038414767453*^9, {3.673904900705522*^9, 
   3.6739049009045334`*^9}, 3.674163444070335*^9, 3.674163731903798*^9, 
   3.6741637948063955`*^9, 3.6741640817688093`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Following rule inverted\
\>", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.4980735583132772`*^9, 3.498073601915354*^9}, {
   3.744669526680749*^9, 3.744669544071743*^9}, {3.74466978143932*^9, 
   3.7446697852475376`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", ">", "1"}], " ", "\[And]", " ", 
   RowBox[{"m", ">", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.498073490999159*^9, 
   3.498073513135598*^9}, {3.5551157353697834`*^9, 3.5551157379297867`*^9}, {
   3.563575101319585*^9, 3.563575101319585*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{"b", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
         RowBox[{"n", "-", "1"}]]}], 
       RowBox[{"f", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "d", " ", "m"}], 
    RowBox[{"f", 
     RowBox[{"(", 
      RowBox[{"n", "-", "1"}], ")"}]}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], 
      RowBox[{"m", "-", "1"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "-", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{
   SuperscriptBox["b", "2"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "-", "2"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, 3.4980734706411233`*^9, 
   3.498073536410839*^9, {3.4980741369390755`*^9, 3.4980741506490946`*^9}, {
   3.4980742559992423`*^9, 3.498074256429243*^9}, {3.5551151866190147`*^9, 
   3.555115280019146*^9}, {3.5551153120591908`*^9, 3.555115312579191*^9}, {
   3.5551154412093716`*^9, 3.5551154462193785`*^9}, {3.5556107553713956`*^9, 
   3.555610815021479*^9}, 3.5620867891908455`*^9, {3.5635732854379406`*^9, 
   3.5635732854679403`*^9}, {3.5635751030395875`*^9, 3.563575105339591*^9}, {
   3.5635776828831997`*^9, 3.5635776912632113`*^9}, {3.6730380969212737`*^9, 
   3.6730382189562535`*^9}, {3.6741634451903987`*^9, 3.674163450872724*^9}, {
   3.674163795382429*^9, 3.674163796744507*^9}, 3.674164038496334*^9, {
   3.6741640823418417`*^9, 3.674164084770981*^9}, {3.674164204572833*^9, 
   3.6741642064669414`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.6741634525268183`*^9, 3.674164086072055*^9, {
   3.674164122782155*^9, 3.674164122977166*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"b", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "-", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"b", "*", "d", "*", 
     RowBox[{"m", "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "-", "1"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "-", 
    " ", "\[IndentingNewLine]", "  ", 
    RowBox[{
     RowBox[{"b", "^", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, 3.4980734370230646`*^9, 3.5488202489124737`*^9, {
   3.5551154935094447`*^9, 3.5551155139894733`*^9}, {3.555115584849572*^9, 
   3.5551156255996294`*^9}, {3.5556108608815436`*^9, 3.555610888501582*^9}, {
   3.5635732854779406`*^9, 3.56357328549794*^9}, {3.5635751062695923`*^9, 
   3.563575108479595*^9}, {3.5635777205632524`*^9, 3.563577727553262*^9}, {
   3.673038253315219*^9, 3.6730382719682856`*^9}, 3.673038339588153*^9, {
   3.6741634533578663`*^9, 3.674163460434271*^9}, 3.674163852972723*^9, 
   3.674163888466753*^9, {3.6741639211866245`*^9, 3.6741639422338285`*^9}, {
   3.6741640909093323`*^9, 3.674164094250523*^9}, {3.674164141042199*^9, 
   3.674164143714352*^9}, {3.674164209568119*^9, 3.6741642124272823`*^9}, 
   3.697087197123675*^9, {3.7154574498720665`*^9, 3.7154574608866963`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "<", 
        RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
       RowBox[{"m", ">", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860803890715`*^9, 3.5620860846593156`*^9}, {3.5620873411816187`*^9, 
   3.5620873415616193`*^9}, 3.56357328541794*^9, {3.563575095149576*^9, 
   3.5635750967095785`*^9}, {3.5635775423530025`*^9, 3.563577542633003*^9}, 
   3.590637944554357*^9, {3.6730302607296543`*^9, 3.673030260892664*^9}, {
   3.673030352360895*^9, 3.6730303542040005`*^9}, 3.673038418012639*^9, {
   3.673904901684578*^9, 3.6739049018855896`*^9}, 3.6741634653585525`*^9, 
   3.674163735102981*^9, 3.674163797430546*^9, 3.6741640983687587`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Algebraic expansion and integration by parts\
\>", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.4980735583132772`*^9, 3.498073601915354*^9}, {
   3.744669526680749*^9, 3.744669544071743*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", "z", "]"}]}], ")"}], "n"], "\[Equal]", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"Sec", "[", "z", "]"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", "z", "]"}]}], ")"}], "n"]}], "-", 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", "z", "]"}]}], ")"}], 
      RowBox[{"n", "+", "2"}]], 
     SuperscriptBox["b", "2"]]}]}]], "Input",
  CellChangeTimes->{{3.7446694637031465`*^9, 3.7446694925937986`*^9}, 
    3.7446695688191586`*^9}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.4980735583132772`*^9, 3.498073601915354*^9}, {
   3.744669554264326*^9, 3.744669578964739*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"Sec", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"]}], "\[Equal]", 
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "+", "1"}]], 
     RowBox[{"b", " ", "f", " ", 
      RowBox[{"(", 
       RowBox[{"n", "+", "1"}], ")"}]}]]}]}]], "Input",
  CellChangeTimes->{{3.7446694637031465`*^9, 3.7446694925937986`*^9}, 
    3.7446695688191586`*^9}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.4980735583132772`*^9, 3.498073601915354*^9}, {
   3.744669554264326*^9, 3.744669578964739*^9}, {3.7446696392421865`*^9, 
   3.7446696392421865`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "<", 
    RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
   RowBox[{"m", ">", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.498073490999159*^9, 
   3.498073513135598*^9}, {3.5551157353697834`*^9, 3.5551157379297867`*^9}, {
   3.563575101319585*^9, 3.563575101319585*^9}, {3.673030360613367*^9, 
   3.673030360613367*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{
     "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"\[Integral]", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
        SuperscriptBox[
         RowBox[{"Sec", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
        RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}], "-", 
  RowBox[{
   FractionBox["1", 
    SuperscriptBox["b", "2"]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "+", "2"}]], 
     RowBox[{"\[DifferentialD]", 
      RowBox[{
      "x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"c", "+", 
            RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"b", " ", 
            RowBox[{"Tan", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
          RowBox[{"n", "+", "1"}]]}], 
        RowBox[{"b", " ", "f", 
         RowBox[{"(", 
          RowBox[{"n", "+", "1"}], ")"}]}]]}]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"d", " ", "m"}], 
    RowBox[{"b", " ", "f", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], 
      RowBox[{"m", "-", "1"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "+", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{
   FractionBox["1", 
    SuperscriptBox["b", "2"]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "+", "2"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, 3.4980734706411233`*^9, 
   3.498073536410839*^9, {3.4980741369390755`*^9, 3.4980741506490946`*^9}, {
   3.4980742559992423`*^9, 3.498074256429243*^9}, {3.5551151866190147`*^9, 
   3.555115280019146*^9}, {3.5551153120591908`*^9, 3.555115312579191*^9}, {
   3.5551154412093716`*^9, 3.5551154462193785`*^9}, {3.5556107553713956`*^9, 
   3.555610815021479*^9}, 3.5620867891908455`*^9, {3.5635732854379406`*^9, 
   3.5635732854679403`*^9}, {3.5635751030395875`*^9, 3.563575105339591*^9}, {
   3.5635776828831997`*^9, 3.5635776912632113`*^9}, {3.673030290083333*^9, 
   3.6730303376800556`*^9}, {3.6730384214518356`*^9, 
   3.6730385052666297`*^9}, {3.674163466813636*^9, 3.6741634702248306`*^9}, {
   3.6741637978465695`*^9, 3.6741637992006474`*^9}, 3.674164049312953*^9, {
   3.674164099533825*^9, 3.6741641027470093`*^9}, {3.7446698703664064`*^9, 
   3.7446699241864843`*^9}, 3.7446699817067747`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "f", "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"d", "*", 
     RowBox[{"m", "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "f", "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", "1"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "-", 
    " ", "\[IndentingNewLine]", "  ", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"b", "^", "2"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"n", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, 3.4980734370230646`*^9, 3.5488202489124737`*^9, {
   3.5551154935094447`*^9, 3.5551155139894733`*^9}, {3.555115584849572*^9, 
   3.5551156255996294`*^9}, {3.5556108608815436`*^9, 3.555610888501582*^9}, {
   3.5635732854779406`*^9, 3.56357328549794*^9}, {3.5635751062695923`*^9, 
   3.563575108479595*^9}, {3.5635777205632524`*^9, 3.563577727553262*^9}, {
   3.6730304479413624`*^9, 3.6730304765289974`*^9}, {3.6730385459369555`*^9, 
   3.6730385530603633`*^9}, 3.6730386139088435`*^9, {3.6741634744620733`*^9, 
   3.674163476906213*^9}, 3.674163854012782*^9, 3.674163894203081*^9, {
   3.6741639244908133`*^9, 3.674163947882151*^9}, {3.6741641040130816`*^9, 
   3.6741641069302483`*^9}, 3.6741641521298337`*^9, 3.697087197163677*^9, {
   3.715457467911098*^9, 3.715457479369754*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "|", "n"}], ")"}], "\[Element]", 
      SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
   3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
   3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
   3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
   3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9, 
   3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
   3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
   3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.674237699089997*^9, 
   3.674237699089997*^9}, {3.674239351038473*^9, 3.6742393516584735`*^9}, {
   3.674240238867967*^9, 3.6742402390679674`*^9}, {3.674240830018931*^9, 
   3.674240830018931*^9}, {3.6742428103480234`*^9, 3.6742428376480627`*^9}, 
   3.6742490420000324`*^9, {3.674252561790264*^9, 3.6742525837435026`*^9}, {
   3.6742545123883486`*^9, 3.6742545280819764`*^9}, {3.674254570626251*^9, 
   3.674254576150661*^9}, {3.6742571845043764`*^9, 3.6742572170822334`*^9}, {
   3.674259083173966*^9, 3.6742591071084085`*^9}, 3.6742752673409233`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.6742377041110096`*^9, 3.6742377101110177`*^9}, 
   3.6742405200764894`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"m", "|", "n"}], ")"}], "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9, 
   3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}, {
   3.674167616374977*^9, 3.6741676197541704`*^9}, {3.6741706099872017`*^9, 
   3.6741706099872017`*^9}, {3.6741722516711006`*^9, 
   3.6741722516711006`*^9}, {3.674237702097006*^9, 3.674237702097006*^9}, {
   3.674239358480484*^9, 3.674239358480484*^9}, {3.674240834178937*^9, 
   3.674240834178937*^9}, {3.6742525970055265`*^9, 3.6742525970055265`*^9}, {
   3.6742545927354903`*^9, 3.6742545927354903`*^9}, {3.6742572239774456`*^9, 
   3.6742572239774456`*^9}, {3.6742591349116573`*^9, 3.6742591349116573`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
       RowBox[{"ExpandIntegrand", "[", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", 
             RowBox[{"Tan", "[", 
              RowBox[{"e", "+", 
               RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], ",", "x"}], 
        "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
   3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
   3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
   3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
   3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
   3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
   3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
   3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
   3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9, 
   3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
   3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9, 
   3.6741717749368334`*^9, {3.6741719539690733`*^9, 3.6741719986966314`*^9}, {
   3.6742383991310067`*^9, 3.6742384190340357`*^9}, {3.674238668578492*^9, 
   3.6742386732784986`*^9}, 3.6742397497532597`*^9, {3.6742408496959596`*^9, 
   3.674240907117041*^9}, {3.6742546069003153`*^9, 3.674254697031674*^9}, 
   3.674257261715912*^9, {3.674275269431327*^9, 3.6742752708821297`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], ",", 
       "x"}], "]"}], ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "m"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
   3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9, 
   3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9}, 
   3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9}, 
   3.6741717760989*^9, {3.674172044636259*^9, 3.674172093641062*^9}, {
   3.674238803548685*^9, 3.674238816158703*^9}, {3.6742393626704893`*^9, 
   3.6742393697004995`*^9}, {3.6742410365572295`*^9, 
   3.6742410592982645`*^9}, {3.6742526075209446`*^9, 3.674252612746954*^9}, 
   3.6742529649137745`*^9, 3.674254739655949*^9, {3.6742548322759156`*^9, 
   3.6742548348675203`*^9}, 3.6742548749353905`*^9, {3.6742562486978207`*^9, 
   3.674256252817629*^9}, {3.6742572362878675`*^9, 3.67425724906429*^9}, 
   3.674257291374564*^9, 3.6742575902732964`*^9, {3.6742591391860647`*^9, 
   3.674259139404465*^9}, {3.6742752726293325`*^9, 3.674275275016137*^9}, 
   3.697087197184678*^9, {3.715457529919645*^9, 3.7154575388451552`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["3.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
      RowBox[{"n", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9, 
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9, 
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9, 
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462973285533237`*^9, 
   3.5462973314333277`*^9}, {3.5462974099434376`*^9, 3.546297410253438*^9}, {
   3.5633457359281*^9, 3.5633457362081003`*^9}, {3.56753668477185*^9, 
   3.5675366893118563`*^9}, {3.5675371645025215`*^9, 3.5675371650625224`*^9}, 
   3.5675376358531814`*^9, {3.567540921187781*^9, 3.567540945317815*^9}, {
   3.5675446460861425`*^9, 3.567544710434823*^9}, {3.567544838785164*^9, 
   3.5675448419923477`*^9}, {3.5675459222661357`*^9, 
   3.5675459227321625`*^9}, {3.5676305646094885`*^9, 3.567630564859089*^9}, {
   3.568756711228214*^9, 3.5687567156182203`*^9}, {3.568835891677881*^9, 
   3.5688358944234858`*^9}, {3.5688359490359817`*^9, 
   3.5688359490359817`*^9}, {3.568836276152956*^9, 3.5688362763401566`*^9}, {
   3.568839701927928*^9, 3.5688397021079283`*^9}, {3.568922343639141*^9, 
   3.5689223438591413`*^9}, {3.5689233425005393`*^9, 
   3.5689233427605395`*^9}, {3.568996922480447*^9, 3.568996922636447*^9}, {
   3.569204521202736*^9, 3.569204521452736*^9}, {3.5692080379266634`*^9, 
   3.5692080553766875`*^9}, 3.569208099316749*^9, {3.569208254936967*^9, 
   3.5692082551669674`*^9}, {3.5692084895272956`*^9, 3.5692084895272956`*^9}, 
   3.569259936760928*^9, 3.6735686475789547`*^9, 3.6740544188489256`*^9, 
   3.674054992406539*^9, 3.6740553401374483`*^9, {3.6740558563777585`*^9, 
   3.674055856627359*^9}, 3.674167011005352*^9, {3.6741703303102055`*^9, 
   3.674170340815806*^9}, {3.6741709172687774`*^9, 3.6741709232251177`*^9}, 
   3.6741717619140882`*^9, {3.6741722375222917`*^9, 3.6741722375222917`*^9}, {
   3.67424899587595*^9, 3.6742490200311937`*^9}, {3.674260892325004*^9, 
   3.674260904746626*^9}, {3.674275352657473*^9, 3.674275352657473*^9}, 
   3.674275432712414*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9, 
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9, 
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9, 
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462973285533237`*^9, 
   3.5462973314333277`*^9}, {3.5462974099434376`*^9, 3.546297410253438*^9}, {
   3.5633457359281*^9, 3.5633457362081003`*^9}, {3.56753668477185*^9, 
   3.5675366893118563`*^9}, {3.5675371645025215`*^9, 3.5675371650625224`*^9}, 
   3.5675376358531814`*^9, {3.567540921187781*^9, 3.567540945317815*^9}, {
   3.5675446460861425`*^9, 3.567544710434823*^9}, {3.567544838785164*^9, 
   3.5675448419923477`*^9}, {3.5675459222661357`*^9, 
   3.5675459227321625`*^9}, {3.5676305646094885`*^9, 3.567630564859089*^9}, {
   3.568756711228214*^9, 3.5687567156182203`*^9}, {3.568835891677881*^9, 
   3.5688358944234858`*^9}, {3.5688359490359817`*^9, 
   3.5688359490359817`*^9}, {3.568836276152956*^9, 3.5688362763401566`*^9}, {
   3.568839701927928*^9, 3.5688397021079283`*^9}, {3.568922343639141*^9, 
   3.5689223438591413`*^9}, {3.5689233425005393`*^9, 
   3.5689233427605395`*^9}, {3.568996922480447*^9, 3.568996922636447*^9}, {
   3.569204521202736*^9, 3.569204521452736*^9}, {3.5692080379266634`*^9, 
   3.5692080553766875`*^9}, 3.569208099316749*^9, {3.569208254936967*^9, 
   3.5692082551669674`*^9}, {3.5692084895272956`*^9, 3.5692084895272956`*^9}, 
   3.569259936760928*^9, 3.6735686475789547`*^9, 3.6740544188489256`*^9, 
   3.674054992406539*^9, 3.6740553401374483`*^9, {3.6740558563777585`*^9, 
   3.674055856627359*^9}, 3.674167011005352*^9, {3.6741703303102055`*^9, 
   3.674170340815806*^9}, {3.6741709172687774`*^9, 3.6741709232251177`*^9}, 
   3.6741717619140882`*^9, {3.6741722375222917`*^9, 3.6741722375222917`*^9}, {
   3.6742413263916445`*^9, 3.674241342842798*^9}, {3.6742428343380575`*^9, 
   3.674242834558058*^9}, {3.6742428799541283`*^9, 3.6742428799541283`*^9}, 
   3.6742490384900265`*^9, 3.6742608930582056`*^9, {3.6742753533906746`*^9, 
   3.6742753533906746`*^9}, 3.674275433414415*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{"m", ">", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
   3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
   3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
   3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
   3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9, 
   3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
   3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
   3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.674237699089997*^9, 
   3.674237699089997*^9}, {3.674239351038473*^9, 3.6742393516584735`*^9}, 
   3.6742428357880597`*^9, 3.6742490391920276`*^9, 3.6742608935730066`*^9, {
   3.674275354342276*^9, 3.674275354342276*^9}, 3.6742754341632166`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion and integration by parts", \
"Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.6742377041110096`*^9, 3.6742377101110177`*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", "z", "]"}]}]}]], "\[Equal]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", " ", "a"}]], "+", 
    FractionBox[
     RowBox[{"a", " ", 
      SuperscriptBox[
       RowBox[{"Sec", "[", "z", "]"}], "2"]}], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Tan", "[", "z", "]"}]}]}], ")"}], "2"]}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980720108405576`*^9, 
   3.4980725492711043`*^9, 3.498073175128604*^9, {3.5154687086436205`*^9, 
   3.515468723619647*^9}, {3.5154688600730867`*^9, 3.5154688600730867`*^9}, {
   3.5607254490973887`*^9, 3.5607254490973887`*^9}, {3.56357328537794*^9, 
   3.56357328537794*^9}, {3.5635771114523993`*^9, 3.5635771114523993`*^9}, {
   3.673041826849613*^9, 3.673041826849613*^9}, {3.674167205686487*^9, 
   3.674167205686487*^9}, {3.6741676303597765`*^9, 3.674167633922981*^9}, {
   3.674170459212578*^9, 3.6741704637798395`*^9}, {3.6741717742057915`*^9, 
   3.6741717742057915`*^9}, {3.674171897721856*^9, 3.674171897722856*^9}, {
   3.6742377176810284`*^9, 3.6742377176810284`*^9}, {3.6742377743861084`*^9, 
   3.6742377743861084`*^9}, {3.674237890582275*^9, 3.674237890582275*^9}, {
   3.6742385485492215`*^9, 3.6742385524492273`*^9}, {3.674275354810277*^9, 
   3.674275354810277*^9}, {3.6742754348496175`*^9, 3.67427543616002*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    SuperscriptBox[
     RowBox[{"Sec", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], "2"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "2"]], "\[Equal]", 
   RowBox[{"-", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     FractionBox["1", 
      RowBox[{"b", " ", "f", " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}]}]]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980720108405576`*^9, 
   3.4980725492711043`*^9, 3.498073175128604*^9, {3.5154687086436205`*^9, 
   3.515468723619647*^9}, {3.5154688600730867`*^9, 3.5154688600730867`*^9}, {
   3.5607254490973887`*^9, 3.5607254490973887`*^9}, {3.56357328537794*^9, 
   3.56357328537794*^9}, {3.5635771114523993`*^9, 3.5635771114523993`*^9}, {
   3.673041826849613*^9, 3.673041826849613*^9}, {3.674167205686487*^9, 
   3.674167205686487*^9}, {3.6741676303597765`*^9, 3.674167633922981*^9}, {
   3.674170459212578*^9, 3.6741704637798395`*^9}, {3.6741705909291115`*^9, 
   3.6741705909291115`*^9}, {3.674171801662362*^9, 3.674171801662362*^9}, {
   3.674171931603794*^9, 3.674171931604794*^9}, {3.67423861072841*^9, 
   3.67423861072841*^9}, {3.674275437049221*^9, 3.674275438578024*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"m", ">", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9, 
   3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}, {
   3.674167616374977*^9, 3.6741676197541704`*^9}, {3.6741706099872017`*^9, 
   3.6741706099872017`*^9}, {3.6741722516711006`*^9, 
   3.6741722516711006`*^9}, {3.674237702097006*^9, 3.674237702097006*^9}, {
   3.674239358480484*^9, 3.674239358480484*^9}, {3.674275355387478*^9, 
   3.674275355387478*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], 
        RowBox[{"m", "+", "1"}]], 
       RowBox[{"2", " ", "a", " ", "d", " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "+", 
  RowBox[{
   FractionBox["a", "2"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
       SuperscriptBox[
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}], "2"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "2"]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"\[LongRightArrow]", "  ", 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], 
      RowBox[{"m", "+", "1"}]], 
     RowBox[{"2", " ", "a", " ", "d", " ", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}]]}], "-", 
   FractionBox[
    RowBox[{"a", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"]}], 
    RowBox[{"2", " ", "b", " ", "f", " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}]}]], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"a", " ", "d", " ", "m"}], 
     RowBox[{"2", " ", "b", " ", "f"}]], " ", 
    RowBox[{"\[Integral]", 
     RowBox[{
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], 
        RowBox[{"m", "-", "1"}]], 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
   3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
   3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
   3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
   3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
   3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
   3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
   3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
   3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9, 
   3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
   3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9, 
   3.6741717749368334`*^9, {3.6741719539690733`*^9, 3.6741719986966314`*^9}, {
   3.6742383991310067`*^9, 3.6742384190340357`*^9}, {3.674238668578492*^9, 
   3.6742386732784986`*^9}, 3.6742397497532597`*^9, {3.674275439217625*^9, 
   3.6742754411208286`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "/", 
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "/", 
     RowBox[{"(", 
      RowBox[{"2", "*", "a", "*", "d", "*", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{"a", "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "b", "*", "f", "*", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}]}], ")"}]}]}], " ", 
    "+", " ", "\n", "  ", 
    RowBox[{"a", "*", "d", "*", 
     RowBox[{"m", "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "b", "*", "f"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "1"}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
   3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9, 
   3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9}, 
   3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9}, 
   3.6741717760989*^9, {3.674172044636259*^9, 3.674172093641062*^9}, {
   3.674238803548685*^9, 3.674238816158703*^9}, {3.6742393626704893`*^9, 
   3.6742393697004995`*^9}, 3.6742753995167556`*^9, {3.67427544208803*^9, 
   3.6742754429148316`*^9}, 3.6970871972146797`*^9, 3.7061396058954706`*^9, {
   3.7154575494087596`*^9, 3.715457573668147*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{"m", "<", 
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9, 
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9, 
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9, 
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462973285533237`*^9, 
   3.5462973314333277`*^9}, {3.5462974099434376`*^9, 3.546297410253438*^9}, {
   3.5633457359281*^9, 3.5633457362081003`*^9}, {3.56753668477185*^9, 
   3.5675366893118563`*^9}, {3.5675371645025215`*^9, 3.5675371650625224`*^9}, 
   3.5675376358531814`*^9, {3.567540921187781*^9, 3.567540945317815*^9}, {
   3.5675446460861425`*^9, 3.567544710434823*^9}, {3.567544838785164*^9, 
   3.5675448419923477`*^9}, {3.5675459222661357`*^9, 
   3.5675459227321625`*^9}, {3.5676305646094885`*^9, 3.567630564859089*^9}, {
   3.568756711228214*^9, 3.5687567156182203`*^9}, {3.568835891677881*^9, 
   3.5688358944234858`*^9}, {3.5688359490359817`*^9, 
   3.5688359490359817`*^9}, {3.568836276152956*^9, 3.5688362763401566`*^9}, {
   3.568839701927928*^9, 3.5688397021079283`*^9}, {3.568922343639141*^9, 
   3.5689223438591413`*^9}, {3.5689233425005393`*^9, 
   3.5689233427605395`*^9}, {3.568996922480447*^9, 3.568996922636447*^9}, {
   3.569204521202736*^9, 3.569204521452736*^9}, {3.5692080379266634`*^9, 
   3.5692080553766875`*^9}, 3.569208099316749*^9, {3.569208254936967*^9, 
   3.5692082551669674`*^9}, {3.5692084895272956`*^9, 3.5692084895272956`*^9}, 
   3.569259936760928*^9, 3.6735686475789547`*^9, 3.6740544188489256`*^9, 
   3.674054992406539*^9, 3.6740553401374483`*^9, {3.6740558563777585`*^9, 
   3.674055856627359*^9}, 3.674167011005352*^9, {3.6741703303102055`*^9, 
   3.674170340815806*^9}, {3.6741709172687774`*^9, 3.6741709232251177`*^9}, 
   3.6741717619140882`*^9, {3.6741722375222917`*^9, 3.6741722375222917`*^9}, {
   3.6742413263916445`*^9, 3.674241342842798*^9}, 3.6742428365580606`*^9, 
   3.6742490397224283`*^9, 3.6742608940566072`*^9, 3.6743398802395315`*^9, {
   3.674339931572467*^9, 3.6743399315734673`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
   3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
   3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
   3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
   3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9, 
   3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
   3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
   3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.674237699089997*^9, 
   3.674237699089997*^9}, {3.674239351038473*^9, 3.6742393516584735`*^9}, {
   3.674240238867967*^9, 3.6742402390679674`*^9}, {3.674240830018931*^9, 
   3.674240830018931*^9}, {3.674242174875986*^9, 3.6742421834159985`*^9}, 
   3.6742428371480618`*^9, 3.6742490412044315`*^9, 3.6742608953826094`*^9, {
   3.674337749833679*^9, 3.674337751542777*^9}, {3.674337829623243*^9, 
   3.674337831305339*^9}, 3.674339881126582*^9, {3.6743399322915087`*^9, 
   3.6743399322915087`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Integration by parts and algebraic expansion\
\>", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.6742377041110096`*^9, 3.6742377101110177`*^9}, 
   3.6742405200764894`*^9, {3.6743401929434166`*^9, 3.6743401959825907`*^9}, {
   3.6743404882003045`*^9, 3.6743404952687087`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "2"]], "\[Equal]", 
   RowBox[{"-", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     FractionBox["1", 
      RowBox[{"d", " ", 
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], ")"}]}]]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980720108405576`*^9, 
   3.4980725492711043`*^9, 3.498073175128604*^9, {3.5154687086436205`*^9, 
   3.515468723619647*^9}, {3.5154688600730867`*^9, 3.5154688600730867`*^9}, {
   3.5607254490973887`*^9, 3.5607254490973887`*^9}, {3.56357328537794*^9, 
   3.56357328537794*^9}, {3.5635771114523993`*^9, 3.5635771114523993`*^9}, {
   3.673041826849613*^9, 3.673041826849613*^9}, {3.674167205686487*^9, 
   3.674167205686487*^9}, {3.6741676303597765`*^9, 3.674167633922981*^9}, {
   3.674170459212578*^9, 3.6741704637798395`*^9}, {3.6741717742057915`*^9, 
   3.6741717742057915`*^9}, {3.674171897721856*^9, 3.674171897722856*^9}, {
   3.6742377176810284`*^9, 3.6742377176810284`*^9}, {3.6742377743861084`*^9, 
   3.6742377743861084`*^9}, {3.674237890582275*^9, 3.674237890582275*^9}, {
   3.6742385485492215`*^9, 3.6742385524492273`*^9}, {3.6742408166729116`*^9, 
   3.6742408166729116`*^9}, {3.674242198098019*^9, 3.674242198098019*^9}, {
   3.674276625676509*^9, 3.6742766262225094`*^9}, {3.6743401773665257`*^9, 
   3.674340209509364*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox["1", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}]]}], "\[Equal]", 
   RowBox[{
    FractionBox[
     RowBox[{"f", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{
        RowBox[{"2", " ", "e"}], "+", 
        RowBox[{"2", " ", "f", " ", "x"}]}], "]"}]}], "b"], "-", 
    FractionBox[
     RowBox[{"f", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"2", " ", "e"}], "+", 
        RowBox[{"2", " ", "f", " ", "x"}]}], "]"}]}], "a"]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980720108405576`*^9, 
   3.4980725492711043`*^9, 3.498073175128604*^9, {3.5154687086436205`*^9, 
   3.515468723619647*^9}, {3.5154688600730867`*^9, 3.5154688600730867`*^9}, {
   3.5607254490973887`*^9, 3.5607254490973887`*^9}, {3.56357328537794*^9, 
   3.56357328537794*^9}, {3.5635771114523993`*^9, 3.5635771114523993`*^9}, {
   3.673041826849613*^9, 3.673041826849613*^9}, {3.674167205686487*^9, 
   3.674167205686487*^9}, {3.6741676303597765`*^9, 3.674167633922981*^9}, {
   3.674170459212578*^9, 3.6741704637798395`*^9}, {3.6741717742057915`*^9, 
   3.6741717742057915`*^9}, {3.674171897721856*^9, 3.674171897722856*^9}, {
   3.6742377176810284`*^9, 3.6742377176810284`*^9}, {3.6742377743861084`*^9, 
   3.6742377743861084`*^9}, {3.674237890582275*^9, 3.674237890582275*^9}, {
   3.6742385485492215`*^9, 3.6742385524492273`*^9}, {3.6742408166729116`*^9, 
   3.6742408166729116`*^9}, {3.674242198098019*^9, 3.674242198098019*^9}, {
   3.674276625676509*^9, 3.6742766262225094`*^9}, {3.6743401773665257`*^9, 
   3.674340209509364*^9}, {3.674340508948491*^9, 3.6743405350209827`*^9}, {
   3.67434070893493*^9, 3.67434070893493*^9}, {3.6743407633070397`*^9, 
   3.6743407633070397`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9, 
   3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}, {
   3.674167616374977*^9, 3.6741676197541704`*^9}, {3.6741706099872017`*^9, 
   3.6741706099872017`*^9}, {3.6741722516711006`*^9, 
   3.6741722516711006`*^9}, {3.674237702097006*^9, 3.674237702097006*^9}, {
   3.674239358480484*^9, 3.674239358480484*^9}, {3.674240834178937*^9, 
   3.674240834178937*^9}, {3.67433993354358*^9, 3.67433993354358*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], ")"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      RowBox[{"-", 
       FractionBox["1", 
        RowBox[{"d", " ", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Tan", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}]}]]}]}]}]}]}], "+", 
  RowBox[{
   FractionBox["f", 
    RowBox[{"b", " ", "d"}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Cos", "[", 
       RowBox[{
        RowBox[{"2", " ", "e"}], "+", 
        RowBox[{"2", " ", "f", " ", "x"}]}], "]"}], 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{
   FractionBox["f", 
    RowBox[{"a", " ", "d"}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"2", " ", "e"}], "+", 
        RowBox[{"2", " ", "f", " ", "x"}]}], "]"}], 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
   3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
   3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
   3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
   3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
   3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
   3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
   3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
   3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9, 
   3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
   3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9, 
   3.6741717749368334`*^9, {3.6741719539690733`*^9, 3.6741719986966314`*^9}, {
   3.6742383991310067`*^9, 3.6742384190340357`*^9}, {3.674238668578492*^9, 
   3.6742386732784986`*^9}, 3.6742397497532597`*^9, {3.6742408496959596`*^9, 
   3.674240907117041*^9}, 3.6742422239940557`*^9, 3.67424227981527*^9, {
   3.6742423133083177`*^9, 3.6742423613133855`*^9}, {3.6742424566155214`*^9, 
   3.6742424587475243`*^9}, 3.6743378383967447`*^9, {3.6743378747488236`*^9, 
   3.6743379247636843`*^9}, 3.674338104506965*^9, {3.674339884113753*^9, 
   3.674339885585837*^9}, {3.6743408261266327`*^9, 3.674340829337816*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "2"}], "*", 
       RowBox[{"(", 
        RowBox[{"a_", "+", 
         RowBox[{"b_.", "*", 
          RowBox[{"tan", "[", 
           RowBox[{"e_.", "+", 
            RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ")"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "1"}], "/", 
     RowBox[{"(", 
      RowBox[{"d", "*", 
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}]}], ")"}]}], " ", "+", 
    " ", "\[IndentingNewLine]", "  ", 
    RowBox[{
     RowBox[{"f", "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "d"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"2", "*", "e"}], "+", 
          RowBox[{"2", "*", "f", "*", "x"}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}]}], " ", "-", 
    " ", "\n", "  ", 
    RowBox[{
     RowBox[{"f", "/", 
      RowBox[{"(", 
       RowBox[{"a", "*", "d"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"2", "*", "e"}], "+", 
          RowBox[{"2", "*", "f", "*", "x"}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
   3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9, 
   3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9}, 
   3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9}, 
   3.6741717760989*^9, {3.674172044636259*^9, 3.674172093641062*^9}, {
   3.674238803548685*^9, 3.674238816158703*^9}, {3.6742393626704893`*^9, 
   3.6742393697004995`*^9}, {3.6742410365572295`*^9, 
   3.6742410592982645`*^9}, {3.6742426313027687`*^9, 
   3.6742426445777884`*^9}, {3.674242710014881*^9, 3.6742427200978956`*^9}, 
   3.674338235446454*^9, {3.674338374445405*^9, 3.674338374851428*^9}, {
   3.6743398867379026`*^9, 3.6743398889260283`*^9}, 3.6743399555908413`*^9, {
   3.6743408756974683`*^9, 3.6743408787406425`*^9}, 3.6970871972446814`*^9, 
   3.7061396059254704`*^9, 3.715457573684148*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{"m", "<", 
        RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
       RowBox[{"m", "\[NotEqual]", 
        RowBox[{"-", "2"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
   3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
   3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
   3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
   3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9, 
   3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
   3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
   3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.674237699089997*^9, 
   3.674237699089997*^9}, {3.674239351038473*^9, 3.6742393516584735`*^9}, {
   3.6742394153705654`*^9, 3.6742394172605677`*^9}, {3.6742399650785656`*^9, 
   3.6742399700885725`*^9}, {3.674240214254932*^9, 3.6742402144249325`*^9}, {
   3.674241290193593*^9, 3.6742412904335938`*^9}, 3.6742413446618013`*^9, 
   3.6742428441480713`*^9, 3.6742490402372293`*^9, 3.674260894493408*^9, {
   3.6743377535978947`*^9, 3.674337753840908*^9}, 3.6743398922552185`*^9, {
   3.674339934378628*^9, 3.674339934378628*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Previous rule inverted", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.6742377041110096`*^9, 3.6742377101110177`*^9}, {
   3.6742399502885447`*^9, 3.6742399553285522`*^9}, {3.674240038685671*^9, 
   3.6742400441656785`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"m", "<", 
    RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
   RowBox[{"m", "\[NotEqual]", 
    RowBox[{"-", "2"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9, 
   3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}, {
   3.674167616374977*^9, 3.6741676197541704`*^9}, {3.6741706099872017`*^9, 
   3.6741706099872017`*^9}, {3.6741722516711006`*^9, 
   3.6741722516711006`*^9}, {3.674237702097006*^9, 3.674237702097006*^9}, {
   3.674239358480484*^9, 3.674239358480484*^9}, {3.6742394260805798`*^9, 
   3.6742394260805798`*^9}, {3.674239975833581*^9, 3.674239975833581*^9}, {
   3.674339934959661*^9, 3.674339934959661*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", " ", 
      FractionBox[
       RowBox[{"f", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], ")"}], 
         RowBox[{"m", "+", "2"}]]}], 
       RowBox[{"b", " ", 
        SuperscriptBox["d", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "2"}], ")"}]}]]}]}]}]}], "+", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], 
    RowBox[{"m", "+", "1"}]], 
   RowBox[{"d", " ", 
    RowBox[{"(", 
     RowBox[{"m", "+", "1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}]}]], "+", 
  RowBox[{
   FractionBox[
    RowBox[{"2", " ", "b", " ", "f"}], 
    RowBox[{"a", " ", "d", " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], ")"}], 
       RowBox[{"m", "+", "1"}]], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
   3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
   3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
   3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
   3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
   3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
   3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
   3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
   3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9, 
   3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
   3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9, 
   3.6741717749368334`*^9, {3.6741719539690733`*^9, 3.6741719986966314`*^9}, {
   3.6742383991310067`*^9, 3.6742384190340357`*^9}, {3.674238668578492*^9, 
   3.6742386732784986`*^9}, {3.6742394483496118`*^9, 3.674239635544097*^9}, {
   3.6742396814911633`*^9, 3.674239698916188*^9}, 3.674239786991313*^9, {
   3.6743398928892546`*^9, 3.6743398938813114`*^9}, 3.6743410808192005`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_"}], "/", 
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"m", "+", "2"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", 
        RowBox[{"d", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "2"}], ")"}]}], ")"}]}]}], " ", "+", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "/", 
     RowBox[{"(", 
      RowBox[{"d", "*", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}]}], ")"}]}], " ", "+", 
    " ", "\n", "  ", 
    RowBox[{"2", "*", "b", "*", 
     RowBox[{"f", "/", 
      RowBox[{"(", 
       RowBox[{"a", "*", "d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
   3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9, 
   3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9}, 
   3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9}, 
   3.6741717760989*^9, {3.674172044636259*^9, 3.674172093641062*^9}, {
   3.674238803548685*^9, 3.674238816158703*^9}, {3.6742393626704893`*^9, 
   3.6742393697004995`*^9}, {3.674240122723795*^9, 3.67424014194983*^9}, 
   3.674240204124918*^9, {3.674241363428828*^9, 3.6742413675588336`*^9}, {
   3.6743377679327145`*^9, 3.6743377721399546`*^9}, {3.6743398946393547`*^9, 
   3.674339896159442*^9}, 3.674339956919917*^9, 3.674341117575303*^9, 
   3.697087197268683*^9, 3.7061396059454703`*^9, {3.715457573692148*^9, 
   3.715457594154319*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["x:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{"m", "<", 
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
   3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
   3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
   3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
   3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9, 
   3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
   3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
   3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.674237699089997*^9, 
   3.674237699089997*^9}, {3.674239351038473*^9, 3.6742393516584735`*^9}, {
   3.6742394153705654`*^9, 3.6742394172605677`*^9}, {3.6742399650785656`*^9, 
   3.6742399700885725`*^9}, {3.674240214254932*^9, 3.6742402144249325`*^9}, {
   3.6742413097736206`*^9, 3.6742413100736213`*^9}, 3.6742413461018033`*^9, 
   3.6742428452080727`*^9, 3.67424904073643*^9, 3.674260894945809*^9, {
   3.6742753579458823`*^9, 3.6742753579458823`*^9}, 3.674275451182846*^9, 
   3.674275785599433*^9, {3.6743397836470065`*^9, 3.674339786997198*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Previous rule inverted", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.6742377041110096`*^9, 3.6742377101110177`*^9}, {
   3.6742399502885447`*^9, 3.6742399553285522`*^9}, {3.674240038685671*^9, 
   3.6742400441656785`*^9}}],

Cell[TextData[{
 "Note: Although this rule unifies the above two rules, it requires an \
additional step and when ",
 Cell[BoxData[
  RowBox[{"m", "=", 
   RowBox[{"-", "2"}]}]],
  CellDingbat->None,
  CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
    3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
    3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
    3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
    3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
    3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
    3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
    3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
    3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
    3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
    3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
    3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
    3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
    3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
    3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
    3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
    3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
    3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9, 
    3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
    3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9, 
    3.6741717749368334`*^9, {3.6741719539690733`*^9, 
    3.6741719986966314`*^9}, {3.6742383991310067`*^9, 
    3.6742384190340357`*^9}, {3.674238668578492*^9, 3.6742386732784986`*^9}, {
    3.6742394483496118`*^9, 3.674239635544097*^9}, {3.6742396814911633`*^9, 
    3.674239698916188*^9}, 3.674239786991313*^9, {3.674241413671899*^9, 
    3.674241427954919*^9}, {3.674241460090965*^9, 3.674241519246049*^9}},
  TextAlignment->Center,
  FontSize->12,
  FontWeight->"Bold"],
 " it generates two log terms that cancel out."
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.6742377041110096`*^9, 3.6742377101110177`*^9}, {
   3.6742399502885447`*^9, 3.6742399553285522`*^9}, {3.674240038685671*^9, 
   3.6742400441656785`*^9}, {3.674338574524849*^9, 3.674338713557801*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"m", "<", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9, 
   3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}, {
   3.674167616374977*^9, 3.6741676197541704`*^9}, {3.6741706099872017`*^9, 
   3.6741706099872017`*^9}, {3.6741722516711006`*^9, 
   3.6741722516711006`*^9}, {3.674237702097006*^9, 3.674237702097006*^9}, {
   3.674239358480484*^9, 3.674239358480484*^9}, {3.6742394260805798`*^9, 
   3.6742394260805798`*^9}, {3.674239975833581*^9, 3.674239975833581*^9}, {
   3.6742413929038696`*^9, 3.6742413929038696`*^9}, {3.6742753585698833`*^9, 
   3.6742753585698833`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], 
        RowBox[{"m", "+", "1"}]], 
       RowBox[{"d", " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}]}]]}]}]}]}], "+", 
  RowBox[{
   FractionBox["f", 
    RowBox[{"b", " ", "d", " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], 
      RowBox[{"m", "+", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{"2", " ", "b", " ", "f"}], 
    RowBox[{"a", " ", "d", " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], ")"}], 
       RowBox[{"m", "+", "1"}]], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
   3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
   3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
   3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
   3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
   3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
   3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
   3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
   3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9, 
   3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
   3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9, 
   3.6741717749368334`*^9, {3.6741719539690733`*^9, 3.6741719986966314`*^9}, {
   3.6742383991310067`*^9, 3.6742384190340357`*^9}, {3.674238668578492*^9, 
   3.6742386732784986`*^9}, {3.6742394483496118`*^9, 3.674239635544097*^9}, {
   3.6742396814911633`*^9, 3.674239698916188*^9}, 3.674239786991313*^9, {
   3.674241413671899*^9, 3.674241427954919*^9}, {3.674241460090965*^9, 
   3.674241519246049*^9}, {3.6742754517132473`*^9, 3.6742754525868483`*^9}, 
   3.674275940258105*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c_.", "+", 
         RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_"}], "/", 
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", 
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}]}], ")"}]}], " ", "+",
      " ", "\[IndentingNewLine]", "  ", 
     RowBox[{
      RowBox[{"f", "/", 
       RowBox[{"(", 
        RowBox[{"b", "*", "d", "*", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], ",", "x"}], "]"}]}], " ", "+", 
     " ", "\n", "  ", 
     RowBox[{"2", "*", "b", "*", 
      RowBox[{"f", "/", 
       RowBox[{"(", 
        RowBox[{"a", "*", "d", "*", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}]}], "/", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Tan", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}]}], ",", "x"}], 
       "]"}]}]}], " ", "/;", "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], 
        "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
     RowBox[{"EqQ", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"a", "^", "2"}], "+", 
        RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
     RowBox[{"LtQ", "[", 
      RowBox[{"m", ",", 
       RowBox[{"-", "1"}]}], "]"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
   3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9, 
   3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9}, 
   3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9}, 
   3.6741717760989*^9, {3.674172044636259*^9, 3.674172093641062*^9}, {
   3.674238803548685*^9, 3.674238816158703*^9}, {3.6742393626704893`*^9, 
   3.6742393697004995`*^9}, {3.674240122723795*^9, 3.67424014194983*^9}, 
   3.674240204124918*^9, 3.674241396393874*^9, 3.674241651113237*^9, 
   3.6742754025587606`*^9, {3.6742754541312513`*^9, 3.6742754549268527`*^9}, 
   3.6742759308512883`*^9, {3.674339812129636*^9, 3.674339816476884*^9}, 
   3.6970871972936845`*^9, 3.7061396059754705`*^9, 3.7154575737001486`*^9, {
   3.7154576052289524`*^9, 3.71545761026624*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
   3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
   3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
   3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
   3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9, 
   3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
   3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
   3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.674237699089997*^9, 
   3.674237699089997*^9}, {3.674239351038473*^9, 3.6742393516584735`*^9}, {
   3.674240238867967*^9, 3.6742402390679674`*^9}, {3.674240830018931*^9, 
   3.674240830018931*^9}, {3.674242174875986*^9, 3.6742421834159985`*^9}, 
   3.6742428371480618`*^9, 3.6742490412044315`*^9, 3.6742608953826094`*^9, {
   3.6742753591314845`*^9, 3.6742753591314845`*^9}, 3.674275456689656*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.6742377041110096`*^9, 3.6742377101110177`*^9}, 
   3.6742405200764894`*^9}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", "z", "]"}]}]}]], "\[Equal]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", " ", "a"}]], "+", 
    FractionBox[
     RowBox[{"Cos", "[", 
      RowBox[{"2", " ", "z"}], "]"}], 
     RowBox[{"2", " ", "a"}]], "+", 
    FractionBox[
     RowBox[{"Sin", "[", 
      RowBox[{"2", " ", "z"}], "]"}], 
     RowBox[{"2", " ", "b"}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980720108405576`*^9, 
   3.4980725492711043`*^9, 3.498073175128604*^9, {3.5154687086436205`*^9, 
   3.515468723619647*^9}, {3.5154688600730867`*^9, 3.5154688600730867`*^9}, {
   3.5607254490973887`*^9, 3.5607254490973887`*^9}, {3.56357328537794*^9, 
   3.56357328537794*^9}, {3.5635771114523993`*^9, 3.5635771114523993`*^9}, {
   3.673041826849613*^9, 3.673041826849613*^9}, {3.674167205686487*^9, 
   3.674167205686487*^9}, {3.6741676303597765`*^9, 3.674167633922981*^9}, {
   3.674170459212578*^9, 3.6741704637798395`*^9}, {3.6741717742057915`*^9, 
   3.6741717742057915`*^9}, {3.674171897721856*^9, 3.674171897722856*^9}, {
   3.6742377176810284`*^9, 3.6742377176810284`*^9}, {3.6742377743861084`*^9, 
   3.6742377743861084`*^9}, {3.674237890582275*^9, 3.674237890582275*^9}, {
   3.6742385485492215`*^9, 3.6742385524492273`*^9}, {3.6742408166729116`*^9, 
   3.6742408166729116`*^9}, {3.674242198098019*^9, 3.674242198098019*^9}, {
   3.6742753596930857`*^9, 3.6742753596930857`*^9}, {3.674275457188857*^9, 
   3.674275458000058*^9}, {3.674276041798683*^9, 3.674276042656685*^9}, {
   3.674276084776759*^9, 3.674276084776759*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9, 
   3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}, {
   3.674167616374977*^9, 3.6741676197541704`*^9}, {3.6741706099872017`*^9, 
   3.6741706099872017`*^9}, {3.6741722516711006`*^9, 
   3.6741722516711006`*^9}, {3.674237702097006*^9, 3.674237702097006*^9}, {
   3.674239358480484*^9, 3.674239358480484*^9}, {3.674240834178937*^9, 
   3.674240834178937*^9}, {3.6742753602702866`*^9, 3.6742753602702866`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{"Log", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], "]"}], 
       RowBox[{"2", " ", "a", " ", "d"}]]}]}]}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", " ", "a"}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Cos", "[", 
       RowBox[{
        RowBox[{"2", " ", "e"}], "+", 
        RowBox[{"2", " ", "f", " ", "x"}]}], "]"}], 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", " ", "b"}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"2", " ", "e"}], "+", 
        RowBox[{"2", " ", "f", " ", "x"}]}], "]"}], 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
   3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
   3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
   3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
   3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
   3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
   3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
   3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
   3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9, 
   3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
   3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9, 
   3.6741717749368334`*^9, {3.6741719539690733`*^9, 3.6741719986966314`*^9}, {
   3.6742383991310067`*^9, 3.6742384190340357`*^9}, {3.674238668578492*^9, 
   3.6742386732784986`*^9}, 3.6742397497532597`*^9, {3.6742408496959596`*^9, 
   3.674240907117041*^9}, 3.6742422239940557`*^9, 3.67424227981527*^9, {
   3.6742423133083177`*^9, 3.6742423613133855`*^9}, {3.6742424566155214`*^9, 
   3.6742424587475243`*^9}, {3.674275458343259*^9, 3.6742754592636604`*^9}, 
   3.674276105555995*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c_.", "+", 
         RowBox[{"d_.", "*", "x_"}]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"a_", "+", 
         RowBox[{"b_.", "*", 
          RowBox[{"tan", "[", 
           RowBox[{"e_.", "+", 
            RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ")"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", "*", "x"}]}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", "*", "a", "*", "d"}], ")"}]}], " ", "+", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "a"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"2", "*", "e"}], "+", 
          RowBox[{"2", "*", "f", "*", "x"}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}]}], " ", "+", 
    " ", "\n", "  ", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "b"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"2", "*", "e"}], "+", 
          RowBox[{"2", "*", "f", "*", "x"}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
   3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9, 
   3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9}, 
   3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9}, 
   3.6741717760989*^9, {3.674172044636259*^9, 3.674172093641062*^9}, {
   3.674238803548685*^9, 3.674238816158703*^9}, {3.6742393626704893`*^9, 
   3.6742393697004995`*^9}, {3.6742410365572295`*^9, 
   3.6742410592982645`*^9}, {3.6742426313027687`*^9, 
   3.6742426445777884`*^9}, {3.674242710014881*^9, 3.6742427200978956`*^9}, 
   3.674275403619563*^9, {3.674275459606861*^9, 3.674275460215262*^9}, 
   3.6742761090660014`*^9, 3.697087197318686*^9, 3.70613960599547*^9, 
   3.715457573708149*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["4:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
   3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
   3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
   3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
   3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9, 
   3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
   3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
   3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.674237699089997*^9, 
   3.674237699089997*^9}, {3.674239351038473*^9, 3.6742393516584735`*^9}, {
   3.674240238867967*^9, 3.6742402390679674`*^9}, {3.674240830018931*^9, 
   3.674240830018931*^9}, {3.6742428103480234`*^9, 3.6742428376480627`*^9}, 
   3.6742490420000324`*^9, {3.674252561790264*^9, 3.6742525837435026`*^9}, 
   3.6742608958506107`*^9, {3.6742753608942876`*^9, 3.6742753608942876`*^9}, 
   3.6742754615412645`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.6742377041110096`*^9, 3.6742377101110177`*^9}, 
   3.6742405200764894`*^9}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", "z", "]"}]}]}]], "\[Equal]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", " ", "a"}]], "+", 
    FractionBox[
     SuperscriptBox["\[ExponentialE]", 
      FractionBox[
       RowBox[{"2", " ", "a", " ", "z"}], "b"]], 
     RowBox[{"2", " ", "a"}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980720108405576`*^9, 
   3.4980725492711043`*^9, 3.498073175128604*^9, {3.5154687086436205`*^9, 
   3.515468723619647*^9}, {3.5154688600730867`*^9, 3.5154688600730867`*^9}, {
   3.5607254490973887`*^9, 3.5607254490973887`*^9}, {3.56357328537794*^9, 
   3.56357328537794*^9}, {3.5635771114523993`*^9, 3.5635771114523993`*^9}, {
   3.673041826849613*^9, 3.673041826849613*^9}, {3.674167205686487*^9, 
   3.674167205686487*^9}, {3.6741676303597765`*^9, 3.674167633922981*^9}, {
   3.674170459212578*^9, 3.6741704637798395`*^9}, {3.6741717742057915`*^9, 
   3.6741717742057915`*^9}, {3.674171897721856*^9, 3.674171897722856*^9}, {
   3.6742377176810284`*^9, 3.6742377176810284`*^9}, {3.6742377743861084`*^9, 
   3.6742377743861084`*^9}, {3.674237890582275*^9, 3.674237890582275*^9}, {
   3.6742385485492215`*^9, 3.6742385524492273`*^9}, {3.6742408166729116`*^9, 
   3.6742408166729116`*^9}, {3.6742753639830933`*^9, 
   3.6742753639830933`*^9}, {3.674275461853265*^9, 3.674275461853265*^9}, {
   3.6742763931581*^9, 3.6742763931581*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9, 
   3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}, {
   3.674167616374977*^9, 3.6741676197541704`*^9}, {3.6741706099872017`*^9, 
   3.6741706099872017`*^9}, {3.6741722516711006`*^9, 
   3.6741722516711006`*^9}, {3.674237702097006*^9, 3.674237702097006*^9}, {
   3.674239358480484*^9, 3.674239358480484*^9}, {3.674240834178937*^9, 
   3.674240834178937*^9}, {3.6742525970055265`*^9, 3.6742525970055265`*^9}, {
   3.6742753646538944`*^9, 3.6742753646538944`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], 
        RowBox[{"m", "+", "1"}]], 
       RowBox[{"2", " ", "a", " ", "d", " ", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", " ", "a"}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       FractionBox[
        RowBox[{"2", " ", "a"}], "b"], 
       RowBox[{"(", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], ")"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
   3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
   3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
   3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
   3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
   3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
   3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
   3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
   3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9, 
   3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
   3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9, 
   3.6741717749368334`*^9, {3.6741719539690733`*^9, 3.6741719986966314`*^9}, {
   3.6742383991310067`*^9, 3.6742384190340357`*^9}, {3.674238668578492*^9, 
   3.6742386732784986`*^9}, 3.6742397497532597`*^9, {3.6742408496959596`*^9, 
   3.674240907117041*^9}, 3.6742754621184654`*^9, {3.6742764172133427`*^9, 
   3.6742764189761457`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_"}], "/", 
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "/", 
     RowBox[{"(", 
      RowBox[{"2", "*", "a", "*", "d", "*", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], " ", "+", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "a"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"2", "*", 
           RowBox[{"a", "/", "b"}], "*", 
           RowBox[{"(", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], ")"}]}], ")"}]}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "m"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "m", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
   3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9, 
   3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9}, 
   3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9}, 
   3.6741717760989*^9, {3.674172044636259*^9, 3.674172093641062*^9}, {
   3.674238803548685*^9, 3.674238816158703*^9}, {3.6742393626704893`*^9, 
   3.6742393697004995`*^9}, {3.6742410365572295`*^9, 
   3.6742410592982645`*^9}, {3.6742526075209446`*^9, 3.674252612746954*^9}, 
   3.6742529649137745`*^9, 3.674275404649165*^9, 3.6742754623992662`*^9, 
   3.674276472000639*^9, 3.697087197342687*^9, 3.7061396060254707`*^9, 
   3.71545757371515*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m", "|", "n"}], ")"}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
   3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
   3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
   3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
   3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9, 
   3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
   3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
   3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.674237699089997*^9, 
   3.674237699089997*^9}, {3.674239351038473*^9, 3.6742393516584735`*^9}, {
   3.674240238867967*^9, 3.6742402390679674`*^9}, {3.674240830018931*^9, 
   3.674240830018931*^9}, {3.674242174875986*^9, 3.6742421834159985`*^9}, 
   3.6742428371480618`*^9, 3.6742490412044315`*^9, {3.6742523494737916`*^9, 
   3.6742523567610044`*^9}, 3.674252837961351*^9, {3.6742531119386363`*^9, 
   3.674253112157037*^9}, {3.6742542272378445`*^9, 3.6742542272378445`*^9}, 
   3.674260896303011*^9, {3.674275365730296*^9, 3.674275365730296*^9}, 
   3.674275463101267*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.6742377041110096`*^9, 3.6742377101110177`*^9}, 
   3.6742405200764894`*^9}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", "z", "]"}]}]}]], "\[Equal]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", " ", "a"}]], "+", 
    FractionBox[
     RowBox[{"Cos", "[", 
      RowBox[{"2", " ", "z"}], "]"}], 
     RowBox[{"2", " ", "a"}]], "+", 
    FractionBox[
     RowBox[{"Sin", "[", 
      RowBox[{"2", " ", "z"}], "]"}], 
     RowBox[{"2", " ", "b"}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980720108405576`*^9, 
   3.4980725492711043`*^9, 3.498073175128604*^9, {3.5154687086436205`*^9, 
   3.515468723619647*^9}, {3.5154688600730867`*^9, 3.5154688600730867`*^9}, {
   3.5607254490973887`*^9, 3.5607254490973887`*^9}, {3.56357328537794*^9, 
   3.56357328537794*^9}, {3.5635771114523993`*^9, 3.5635771114523993`*^9}, {
   3.673041826849613*^9, 3.673041826849613*^9}, {3.674167205686487*^9, 
   3.674167205686487*^9}, {3.6741676303597765`*^9, 3.674167633922981*^9}, {
   3.674170459212578*^9, 3.6741704637798395`*^9}, {3.6741717742057915`*^9, 
   3.6741717742057915`*^9}, {3.674171897721856*^9, 3.674171897722856*^9}, {
   3.6742377176810284`*^9, 3.6742377176810284`*^9}, {3.6742377743861084`*^9, 
   3.6742377743861084`*^9}, {3.674237890582275*^9, 3.674237890582275*^9}, {
   3.6742385485492215`*^9, 3.6742385524492273`*^9}, {3.6742408166729116`*^9, 
   3.6742408166729116`*^9}, {3.674242198098019*^9, 3.674242198098019*^9}, {
   3.6742753596930857`*^9, 3.6742753596930857`*^9}, {3.674275457188857*^9, 
   3.674275458000058*^9}, {3.674276041798683*^9, 3.674276042656685*^9}, {
   3.674276084776759*^9, 3.674276084776759*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"m", "|", "n"}], ")"}], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9, 
   3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}, {
   3.674167616374977*^9, 3.6741676197541704`*^9}, {3.6741706099872017`*^9, 
   3.6741706099872017`*^9}, {3.6741722516711006`*^9, 
   3.6741722516711006`*^9}, {3.674237702097006*^9, 3.674237702097006*^9}, {
   3.674239358480484*^9, 3.674239358480484*^9}, {3.674240834178937*^9, 
   3.674240834178937*^9}, {3.674252404534587*^9, 3.674252404534587*^9}, {
   3.6742542145550222`*^9, 3.674254221715435*^9}, {3.6742753669314985`*^9, 
   3.6742753669314985`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "   ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
       RowBox[{"ExpandIntegrand", "[", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", 
             RowBox[{"2", " ", "a"}]], "+", 
            FractionBox[
             RowBox[{"Cos", "[", 
              RowBox[{
               RowBox[{"2", " ", "e"}], "+", 
               RowBox[{"2", " ", "f", " ", "x"}]}], "]"}], 
             RowBox[{"2", " ", "a"}]], "+", 
            FractionBox[
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"2", " ", "e"}], "+", 
               RowBox[{"2", " ", "f", " ", "x"}]}], "]"}], 
             RowBox[{"2", " ", "b"}]]}], ")"}], 
          RowBox[{"-", "n"}]], ",", "x"}], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
   3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
   3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
   3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
   3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
   3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
   3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
   3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
   3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9, 
   3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
   3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9, 
   3.6741717749368334`*^9, {3.6741719539690733`*^9, 3.6741719986966314`*^9}, {
   3.6742383991310067`*^9, 3.6742384190340357`*^9}, {3.674238668578492*^9, 
   3.6742386732784986`*^9}, 3.6742397497532597`*^9, {3.6742408496959596`*^9, 
   3.674240907117041*^9}, 3.6742422239940557`*^9, 3.67424227981527*^9, {
   3.6742423133083177`*^9, 3.6742423613133855`*^9}, {3.6742424566155214`*^9, 
   3.6742424587475243`*^9}, {3.6742528575725856`*^9, 
   3.6742529402773314`*^9}, {3.674253010873658*^9, 3.674253019328873*^9}, {
   3.674275464271269*^9, 3.6742754648952703`*^9}, 3.674276665640579*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"(", 
            RowBox[{"2", "*", "a"}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"2", "*", "e"}], "+", 
             RowBox[{"2", "*", "f", "*", "x"}]}], "]"}], "/", 
           RowBox[{"(", 
            RowBox[{"2", "*", "a"}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"2", "*", "e"}], "+", 
             RowBox[{"2", "*", "f", "*", "x"}]}], "]"}], "/", 
           RowBox[{"(", 
            RowBox[{"2", "*", "b"}], ")"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"-", "n"}], ")"}]}], ",", "x"}], "]"}], ",", "x"}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"ILtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"ILtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
   3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9, 
   3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9}, 
   3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9}, 
   3.6741717760989*^9, {3.674172044636259*^9, 3.674172093641062*^9}, {
   3.674238803548685*^9, 3.674238816158703*^9}, {3.6742393626704893`*^9, 
   3.6742393697004995`*^9}, {3.6742410365572295`*^9, 
   3.6742410592982645`*^9}, {3.6742426313027687`*^9, 
   3.6742426445777884`*^9}, {3.674242710014881*^9, 3.6742427200978956`*^9}, {
   3.674253095324607*^9, 3.6742531395068846`*^9}, {3.6742542021978006`*^9, 
   3.674254205302206*^9}, 3.6742547319943357`*^9, 3.674275405663166*^9, {
   3.674275465238471*^9, 3.674275465924872*^9}, 3.6742766767945986`*^9, 
   3.697087197367689*^9, 3.70613960604547*^9, 3.7154575737231503`*^9, {
   3.715457624209038*^9, 3.71545763298954*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{"n", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
   3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
   3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
   3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
   3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9, 
   3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
   3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
   3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.674237699089997*^9, 
   3.674237699089997*^9}, {3.674239351038473*^9, 3.6742393516584735`*^9}, {
   3.674240238867967*^9, 3.6742402390679674`*^9}, {3.674240830018931*^9, 
   3.674240830018931*^9}, {3.6742428103480234`*^9, 3.6742428376480627`*^9}, 
   3.6742490420000324`*^9, {3.674252561790264*^9, 3.6742525837435026`*^9}, {
   3.6742545123883486`*^9, 3.6742545280819764`*^9}, {3.674254570626251*^9, 
   3.674254576150661*^9}, {3.6742608016130433`*^9, 3.6742608018158436`*^9}, 
   3.674260896726212*^9, {3.674275367493099*^9, 3.674275367493099*^9}, 
   3.6742754672508745`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.6742377041110096`*^9, 3.6742377101110177`*^9}, 
   3.6742405200764894`*^9}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", "z", "]"}]}]}]], "\[Equal]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", " ", "a"}]], "+", 
    FractionBox[
     SuperscriptBox["\[ExponentialE]", 
      FractionBox[
       RowBox[{"2", " ", "a", " ", "z"}], "b"]], 
     RowBox[{"2", " ", "a"}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980720108405576`*^9, 
   3.4980725492711043`*^9, 3.498073175128604*^9, {3.5154687086436205`*^9, 
   3.515468723619647*^9}, {3.5154688600730867`*^9, 3.5154688600730867`*^9}, {
   3.5607254490973887`*^9, 3.5607254490973887`*^9}, {3.56357328537794*^9, 
   3.56357328537794*^9}, {3.5635771114523993`*^9, 3.5635771114523993`*^9}, {
   3.673041826849613*^9, 3.673041826849613*^9}, {3.674167205686487*^9, 
   3.674167205686487*^9}, {3.6741676303597765`*^9, 3.674167633922981*^9}, {
   3.674170459212578*^9, 3.6741704637798395`*^9}, {3.6741717742057915`*^9, 
   3.6741717742057915`*^9}, {3.674171897721856*^9, 3.674171897722856*^9}, {
   3.6742377176810284`*^9, 3.6742377176810284`*^9}, {3.6742377743861084`*^9, 
   3.6742377743861084`*^9}, {3.674237890582275*^9, 3.674237890582275*^9}, {
   3.6742385485492215`*^9, 3.6742385524492273`*^9}, {3.6742408166729116`*^9, 
   3.6742408166729116`*^9}, {3.6742753639830933`*^9, 
   3.6742753639830933`*^9}, {3.674275461853265*^9, 3.674275461853265*^9}, {
   3.6742763931581*^9, 3.6742763931581*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"n", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9, 
   3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}, {
   3.674167616374977*^9, 3.6741676197541704`*^9}, {3.6741706099872017`*^9, 
   3.6741706099872017`*^9}, {3.6741722516711006`*^9, 
   3.6741722516711006`*^9}, {3.674237702097006*^9, 3.674237702097006*^9}, {
   3.674239358480484*^9, 3.674239358480484*^9}, {3.674240834178937*^9, 
   3.674240834178937*^9}, {3.6742525970055265`*^9, 3.6742525970055265`*^9}, {
   3.6742545927354903`*^9, 3.6742545927354903`*^9}, {3.6742753687099013`*^9, 
   3.6742753687099013`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
       RowBox[{"ExpandIntegrand", "[", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", 
             RowBox[{"2", " ", "a"}]], "+", 
            FractionBox[
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               FractionBox[
                RowBox[{"2", " ", "a"}], "b"], 
               RowBox[{"(", 
                RowBox[{"e", "+", 
                 RowBox[{"f", " ", "x"}]}], ")"}]}]], 
             RowBox[{"2", " ", "a"}]]}], ")"}], 
          RowBox[{"-", "n"}]], ",", "x"}], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
   3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
   3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
   3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
   3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
   3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
   3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
   3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
   3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9, 
   3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
   3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9, 
   3.6741717749368334`*^9, {3.6741719539690733`*^9, 3.6741719986966314`*^9}, {
   3.6742383991310067`*^9, 3.6742384190340357`*^9}, {3.674238668578492*^9, 
   3.6742386732784986`*^9}, 3.6742397497532597`*^9, {3.6742408496959596`*^9, 
   3.674240907117041*^9}, {3.6742546069003153`*^9, 3.674254697031674*^9}, 
   3.6742754684520764`*^9, {3.6742769793727303`*^9, 3.6742769830387363`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"(", 
            RowBox[{"2", "*", "a"}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"E", "^", 
            RowBox[{"(", 
             RowBox[{"2", "*", 
              RowBox[{"a", "/", "b"}], "*", 
              RowBox[{"(", 
               RowBox[{"e", "+", 
                RowBox[{"f", "*", "x"}]}], ")"}]}], ")"}]}], "/", 
           RowBox[{"(", 
            RowBox[{"2", "*", "a"}], ")"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"-", "n"}], ")"}]}], ",", "x"}], "]"}], ",", "x"}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "m"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"ILtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
   3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9, 
   3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9}, 
   3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9}, 
   3.6741717760989*^9, {3.674172044636259*^9, 3.674172093641062*^9}, {
   3.674238803548685*^9, 3.674238816158703*^9}, {3.6742393626704893`*^9, 
   3.6742393697004995`*^9}, {3.6742410365572295`*^9, 
   3.6742410592982645`*^9}, {3.6742526075209446`*^9, 3.674252612746954*^9}, 
   3.6742529649137745`*^9, 3.674254739655949*^9, {3.6742548322759156`*^9, 
   3.6742548348675203`*^9}, 3.6742548749353905`*^9, {3.6742562486978207`*^9, 
   3.674256252817629*^9}, 3.6742754067863684`*^9, 3.6742754688576775`*^9, {
   3.6742770079519806`*^9, 3.6742770115399866`*^9}, 3.6970871973926897`*^9, 
   3.7061396060654707`*^9, 3.7154575737311506`*^9, 3.715457640087946*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["4:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"n", "+", "1"}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}], "\[And]", " ", 
       RowBox[{"m", ">", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
   3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
   3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
   3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
   3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9, 
   3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
   3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
   3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.674237699089997*^9, 
   3.674237699089997*^9}, {3.674239351038473*^9, 3.6742393516584735`*^9}, 
   3.6742428357880597`*^9, 3.6742490391920276`*^9, {3.674249096483329*^9, 
   3.6742491251581793`*^9}, {3.674249908421464*^9, 3.6742499193570833`*^9}, {
   3.6742531078826294`*^9, 3.6742531081010294`*^9}, {3.674260809243457*^9, 
   3.674260809446257*^9}, 3.6742608971786127`*^9, {3.6742753693495026`*^9, 
   3.6742753693495026`*^9}, 3.6742754701680794`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.6742377041110096`*^9, 3.6742377101110177`*^9}, {
   3.6742491660030513`*^9, 3.6742491682494555`*^9}}],

Cell[TextData[{
 "Note: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"n", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]]],
 " is a monomial in x plus terms of the form ",
 Cell[BoxData[
  RowBox[{"g", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "k"]}]],
  CellDingbat->None,
  CellChangeTimes->{
   3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
    3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
    3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
    3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
    3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
    3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
    3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
    3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
    3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
    3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
    3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
    3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
    3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
    3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
    3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
    3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
    3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
    3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
    3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
    3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
    3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9},
     3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
    3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
    3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
    3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
    3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
    3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
    3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
    3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
    3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
    3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
    3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
    3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
    3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
    3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
    3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
    3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
    3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
    3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
    3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
    3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
    3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
    3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9, 
    3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
    3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
    3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.674237699089997*^9, 
    3.674237699089997*^9}, {3.674239351038473*^9, 3.6742393516584735`*^9}, 
    3.6742428357880597`*^9, 3.6742490391920276`*^9, {3.674249096483329*^9, 
    3.6742491251581793`*^9}},
  FontSize->12,
  FontWeight->"Bold"],
 " where ",
 Cell[BoxData[
  RowBox[{"n", "\[LessEqual]", "k", "<", "0"}]],
  CellDingbat->None,
  CellChangeTimes->{
   3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
    3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
    3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
    3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
    3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
    3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
    3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
    3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
    3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
    3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
    3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
    3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
    3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
    3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
    3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
    3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
    3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
    3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
    3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
    3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
    3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9},
     3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
    3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
    3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
    3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
    3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
    3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
    3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
    3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
    3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
    3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
    3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
    3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
    3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
    3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
    3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
    3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
    3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
    3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
    3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
    3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
    3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
    3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9, 
    3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
    3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
    3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.674237699089997*^9, 
    3.674237699089997*^9}, {3.674239351038473*^9, 3.6742393516584735`*^9}, 
    3.6742428357880597`*^9, 3.6742490391920276`*^9, {3.674249096483329*^9, 
    3.6742491251581793`*^9}},
  FontSize->12,
  FontWeight->"Bold"],
 "."
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.6742377041110096`*^9, 3.6742377101110177`*^9}, {
   3.6742491660030513`*^9, 3.6742491682494555`*^9}, {3.6742493689358115`*^9, 
   3.674249410203884*^9}, {3.6742495464393244`*^9, 3.674249622264458*^9}, {
   3.67424965620301*^9, 3.67424972483294*^9}, {3.6742753700203037`*^9, 
   3.6742753700203037`*^9}, {3.6742754707452803`*^9, 3.6742754714316816`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"n", "+", "1"}], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}], "\[And]", " ", 
   RowBox[{"m", ">", "0"}]}]]],
 ", let ",
 Cell[BoxData[
  RowBox[{"u", "=", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9, 
   3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}, {
   3.674167616374977*^9, 3.6741676197541704`*^9}, {3.6741706099872017`*^9, 
   3.6741706099872017`*^9}, {3.6741722516711006`*^9, 
   3.6741722516711006`*^9}, {3.674237702097006*^9, 3.674237702097006*^9}, {
   3.674239358480484*^9, 3.674239358480484*^9}, {3.6742491527430277`*^9, 
   3.6742491527430277`*^9}, {3.6742491872542887`*^9, 
   3.6742492320459676`*^9}, {3.6742499242086916`*^9, 
   3.6742499242086916`*^9}, {3.6742753705351048`*^9, 
   3.6742753705351048`*^9}, {3.674275472554884*^9, 3.674275472554884*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "u"}]}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"]}]}], "-", 
  RowBox[{"d", " ", "m", " ", 
   RowBox[{"\[Integral]", 
    RowBox[{"u", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], 
      RowBox[{"m", "-", "1"}]], " ", 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
   3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
   3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
   3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
   3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
   3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
   3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
   3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
   3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9, 
   3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
   3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9, 
   3.6741717749368334`*^9, {3.6741719539690733`*^9, 3.6741719986966314`*^9}, {
   3.6742383991310067`*^9, 3.6742384190340357`*^9}, {3.674238668578492*^9, 
   3.6742386732784986`*^9}, 3.6742397497532597`*^9, 3.6742491621810446`*^9, {
   3.6742492537652063`*^9, 3.67424927309564*^9}, {3.6742493125989094`*^9, 
   3.6742493486721735`*^9}, 3.674275473428485*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u", "=", 
       RowBox[{"IntHide", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"Tan", "[", 
              RowBox[{"e", "+", 
               RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], ",", 
         "x"}], "]"}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{"Dist", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], ",", "u", ",", "x"}],
        "]"}], " ", "-", " ", 
      RowBox[{"d", "*", "m", "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{"Dist", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"c", "+", 
              RowBox[{"d", "*", "x"}]}], ")"}], "^", 
            RowBox[{"(", 
             RowBox[{"m", "-", "1"}], ")"}]}], ",", "u", ",", "x"}], "]"}], 
         ",", "x"}], "]"}]}]}]}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"ILtQ", "[", 
     RowBox[{"n", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
   3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9, 
   3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9}, 
   3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9}, 
   3.6741717760989*^9, {3.674172044636259*^9, 3.674172093641062*^9}, {
   3.674238803548685*^9, 3.674238816158703*^9}, {3.6742393626704893`*^9, 
   3.6742393697004995`*^9}, {3.674249933477108*^9, 3.6742500758871593`*^9}, 
   3.6742508623354635`*^9, 3.6742754078159704`*^9, {3.6742754738496857`*^9, 
   3.674275488262911*^9}, 3.6970871974196916`*^9, 3.7061396060954704`*^9, 
   3.715457573739151*^9, {3.7154576462182965`*^9, 3.7154576713557343`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["4.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
      RowBox[{"n", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}], "\[And]", " ", 
      RowBox[{"m", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9, 
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9, 
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9, 
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462973285533237`*^9, 
   3.5462973314333277`*^9}, {3.5462974099434376`*^9, 3.546297410253438*^9}, {
   3.5633457359281*^9, 3.5633457362081003`*^9}, {3.56753668477185*^9, 
   3.5675366893118563`*^9}, {3.5675371645025215`*^9, 3.5675371650625224`*^9}, 
   3.5675376358531814`*^9, {3.567540921187781*^9, 3.567540945317815*^9}, {
   3.5675446460861425`*^9, 3.567544710434823*^9}, {3.567544838785164*^9, 
   3.5675448419923477`*^9}, {3.5675459222661357`*^9, 
   3.5675459227321625`*^9}, {3.5676305646094885`*^9, 3.567630564859089*^9}, {
   3.568756711228214*^9, 3.5687567156182203`*^9}, {3.568835891677881*^9, 
   3.5688358944234858`*^9}, {3.5688359490359817`*^9, 
   3.5688359490359817`*^9}, {3.568836276152956*^9, 3.5688362763401566`*^9}, {
   3.568839701927928*^9, 3.5688397021079283`*^9}, {3.568922343639141*^9, 
   3.5689223438591413`*^9}, {3.5689233425005393`*^9, 
   3.5689233427605395`*^9}, {3.568996922480447*^9, 3.568996922636447*^9}, {
   3.569204521202736*^9, 3.569204521452736*^9}, {3.5692080379266634`*^9, 
   3.5692080553766875`*^9}, 3.569208099316749*^9, {3.569208254936967*^9, 
   3.5692082551669674`*^9}, {3.5692084895272956`*^9, 3.5692084895272956`*^9}, 
   3.569259936760928*^9, 3.6735686475789547`*^9, 3.6740544188489256`*^9, 
   3.674054992406539*^9, 3.6740553401374483`*^9, {3.6740558563777585`*^9, 
   3.674055856627359*^9}, 3.674167011005352*^9, {3.6741703303102055`*^9, 
   3.674170340815806*^9}, 3.674171772047668*^9, {3.674172249967003*^9, 
   3.674172249967003*^9}, {3.6742609214854555`*^9, 3.6742609468239*^9}, {
   3.6742613038807325`*^9, 3.6742613137575502`*^9}, {3.6742772926212807`*^9, 
   3.674277318950927*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{"m", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
   3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
   3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
   3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
   3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9, 
   3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
   3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
   3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.6742772931984816`*^9, 
   3.674277319403328*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", "z", "]"}]}]}]], "\[Equal]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"a", "+", 
      RowBox[{"\[ImaginaryI]", " ", "b"}]}]], "+", 
    FractionBox[
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "b", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "z"}]]}], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"\[ImaginaryI]", " ", "b"}]}], ")"}], "2"], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["b", "2"]}], ")"}], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", "z"}]]}]}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980720108405576`*^9, 
   3.4980725492711043`*^9, 3.498073175128604*^9, {3.5154687086436205`*^9, 
   3.515468723619647*^9}, {3.5154688600730867`*^9, 3.5154688600730867`*^9}, {
   3.5607254490973887`*^9, 3.5607254490973887`*^9}, {3.56357328537794*^9, 
   3.56357328537794*^9}, {3.5635771114523993`*^9, 3.5635771114523993`*^9}, {
   3.673041826849613*^9, 3.673041826849613*^9}, {3.674167205686487*^9, 
   3.674167205686487*^9}, {3.6741676303597765`*^9, 3.674167633922981*^9}, {
   3.674170459212578*^9, 3.6741704637798395`*^9}, {3.6741717742057915`*^9, 
   3.6741717742057915`*^9}, {3.674171897721856*^9, 3.674171897722856*^9}, {
   3.6742772938068824`*^9, 3.6742773197933283`*^9}, {3.674277604829028*^9, 
   3.674277604829028*^9}, {3.6743222972108393`*^9, 3.6743222972108393`*^9}, {
   3.7281547906099815`*^9, 3.7281547906099815`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{"m", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9, 
   3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}, {
   3.674167616374977*^9, 3.6741676197541704`*^9}, {3.6741706099872017`*^9, 
   3.6741706099872017`*^9}, {3.6741722516711006`*^9, 
   3.6741722516711006`*^9}, {3.67427732057333*^9, 3.67427732057333*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], 
        RowBox[{"m", "+", "1"}]], 
       RowBox[{"d", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"\[ImaginaryI]", " ", "b"}]}], ")"}]}]]}]}]}]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", "b", " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], ")"}]}]]}], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"\[ImaginaryI]", " ", "b"}]}], ")"}], "2"], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["a", "2"], "+", 
          SuperscriptBox["b", "2"]}], ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], ")"}]}]]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
   3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
   3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
   3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
   3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
   3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
   3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
   3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
   3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9, 
   3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
   3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9, 
   3.72815487083557*^9, {3.7281549256387043`*^9, 3.7281549597196536`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "/", 
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"k_.", "*", "Pi"}], "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "/", 
     RowBox[{"(", 
      RowBox[{"d", "*", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"I", "*", "b"}]}], ")"}]}], ")"}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{"2", "*", "I", "*", "b", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"2", "*", "I", "*", "k", "*", "Pi"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"E", "^", 
          RowBox[{"Simp", "[", 
           RowBox[{
            RowBox[{"2", "*", "I", "*", 
             RowBox[{"(", 
              RowBox[{"e", "+", 
               RowBox[{"f", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}]}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"I", "*", "b"}]}], ")"}], "^", "2"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", "^", "2"}], "+", 
              RowBox[{"b", "^", "2"}]}], ")"}], "*", 
            RowBox[{"E", "^", 
             RowBox[{"(", 
              RowBox[{"2", "*", "I", "*", "k", "*", "Pi"}], ")"}]}], "*", 
            RowBox[{"E", "^", 
             RowBox[{"Simp", "[", 
              RowBox[{
               RowBox[{"2", "*", "I", "*", 
                RowBox[{"(", 
                 RowBox[{"e", "+", 
                  RowBox[{"f", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}]}]}]}],
           ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"4", "*", "k"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
   3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9, 
   3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9}, 
   3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9}, 
   3.697087197445693*^9, {3.697138605327132*^9, 3.697138607340247*^9}, 
   3.697138660899311*^9, {3.6973226838592243`*^9, 3.697322716737406*^9}, {
   3.6973336190199423`*^9, 3.697333652243989*^9}, 3.6973356045103436`*^9, {
   3.697336139313117*^9, 3.697336144433124*^9}, {3.6973362645933027`*^9, 
   3.697336266913306*^9}, 3.6973363324605055`*^9, {3.697349067306713*^9, 
   3.6973491241319633`*^9}, {3.6973495087369614`*^9, 3.6973495166384134`*^9}, 
   3.7061396156754837`*^9, 3.7154573645941887`*^9, 3.71545769365901*^9, 
   3.728153812110014*^9, {3.7281550316967707`*^9, 3.728155037818121*^9}, {
   3.7281569377687917`*^9, 3.7281569407919645`*^9}, {3.7281569856265287`*^9, 
   3.7281569893557425`*^9}, {3.728157091878606*^9, 3.7281571137578573`*^9}, {
   3.7281571672349167`*^9, 3.728157187213059*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "/", 
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "/", 
     RowBox[{"(", 
      RowBox[{"d", "*", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"I", "*", "b"}]}], ")"}]}], ")"}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{"2", "*", "I", "*", "b", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{
         RowBox[{"E", "^", 
          RowBox[{"Simp", "[", 
           RowBox[{
            RowBox[{"2", "*", "I", "*", 
             RowBox[{"(", 
              RowBox[{"e", "+", 
               RowBox[{"f", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}]}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"a", "+", 
              RowBox[{"I", "*", "b"}]}], ")"}], "^", "2"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", "^", "2"}], "+", 
              RowBox[{"b", "^", "2"}]}], ")"}], "*", 
            RowBox[{"E", "^", 
             RowBox[{"Simp", "[", 
              RowBox[{
               RowBox[{"2", "*", "I", "*", 
                RowBox[{"(", 
                 RowBox[{"e", "+", 
                  RowBox[{"f", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}]}]}]}],
           ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
   3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9, 
   3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9}, 
   3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9}, 
   3.697087197445693*^9, 3.697138439347639*^9, 3.706139615685484*^9, 
   3.7154573646031895`*^9, 3.715457693678011*^9, {3.7281537225638924`*^9, 
   3.728153727295163*^9}, {3.7281537979912066`*^9, 3.728153802338455*^9}, {
   3.728155057901269*^9, 3.7281550613144646`*^9}, 3.7281551187597504`*^9, {
   3.7281571929093847`*^9, 3.728157193630426*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "2"]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
   3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
   3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
   3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
   3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9, 
   3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
   3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
   3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.674191158574342*^9, 
   3.6741911854868813`*^9}, {3.674277296614887*^9, 3.674277321306531*^9}, {
   3.6742780466966047`*^9, 3.6742780466966047`*^9}, {3.6742783183086815`*^9, 
   3.674278320321085*^9}, {3.6743219079715767`*^9, 3.6743219111097555`*^9}, 
   3.7445978077322316`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9, 
   3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}, {
   3.674167616374977*^9, 3.6741676197541704`*^9}, {3.6741706099872017`*^9, 
   3.6741706099872017`*^9}, {3.6741722516711006`*^9, 
   3.6741722516711006`*^9}, {3.674277321665332*^9, 3.674277321665332*^9}, {
   3.674278049208209*^9, 3.6742780494578094`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "2"]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], ")"}], "2"], 
        RowBox[{"2", " ", "d", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["a", "2"], "+", 
           SuperscriptBox["b", "2"]}], ")"}]}]]}]}]}]}]}], "-", 
  FractionBox[
   RowBox[{"b", " ", 
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}]}], 
   RowBox[{"f", " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["a", "2"], "+", 
      SuperscriptBox["b", "2"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}]}]], " ", "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"f", " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["a", "2"], "+", 
       SuperscriptBox["b", "2"]}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"b", " ", "d"}], "+", 
       RowBox[{"2", " ", "a", " ", "c", " ", "f"}], "+", 
       RowBox[{"2", " ", "a", " ", "d", " ", "f", " ", "x"}]}], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
   3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
   3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
   3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
   3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
   3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
   3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
   3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
   3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9, 
   3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
   3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9, 
   3.6741717749368334`*^9, {3.6741719539690733`*^9, 3.6741719986966314`*^9}, {
   3.6741911944693947`*^9, 3.674191203216895*^9}, {3.6742772972076883`*^9, 
   3.6742773227417336`*^9}, 3.674321901528208*^9, 3.744597804257033*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], ")"}], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "2"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], ")"}], "^", "2"}]}], "/", 
     RowBox[{"(", 
      RowBox[{"2", "*", "d", "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"a", "^", "2"}], "+", 
         RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"b", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "^", "2"}], "+", 
          RowBox[{"b", "^", "2"}]}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}]}], ")"}]}]}], " ", 
    "+", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "^", "2"}], "+", 
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"b", "*", "d"}], "+", 
          RowBox[{"2", "*", "a", "*", "c", "*", "f"}], "+", 
          RowBox[{"2", "*", "a", "*", "d", "*", "f", "*", "x"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
   3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9, 
   3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9}, 
   3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9}, 
   3.6741717760989*^9, {3.674172044636259*^9, 3.674172093641062*^9}, {
   3.674261081111337*^9, 3.674261084980144*^9}, 3.674261126419817*^9, {
   3.674261157598875*^9, 3.6742611617952824`*^9}, {3.6742772988144913`*^9, 
   3.6742772998596935`*^9}, {3.674277730315649*^9, 3.674277735073657*^9}, {
   3.6743219193192253`*^9, 3.674321937970292*^9}, 3.6970871974676943`*^9, 
   3.7061396157154837`*^9, 3.715457693692012*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "+", 
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{"n", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}], "\[And]", " ", 
       RowBox[{"m", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
   3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
   3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
   3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
   3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9, 
   3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
   3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
   3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.674261272614278*^9, 
   3.6742612751414824`*^9}, {3.6742613217779646`*^9, 
   3.6742613217779646`*^9}, {3.6742773021996975`*^9, 3.674277323100534*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", "z", "]"}]}]}]], "\[Equal]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"a", "-", 
      RowBox[{"\[ImaginaryI]", " ", "b"}]}]], "-", 
    FractionBox[
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "b"}], 
     RowBox[{
      SuperscriptBox["a", "2"], "+", 
      SuperscriptBox["b", "2"], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "-", 
          RowBox[{"\[ImaginaryI]", " ", "b"}]}], ")"}], "2"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", "z"}]]}]}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980720108405576`*^9, 
   3.4980725492711043`*^9, 3.498073175128604*^9, {3.5154687086436205`*^9, 
   3.515468723619647*^9}, {3.5154688600730867`*^9, 3.5154688600730867`*^9}, {
   3.5607254490973887`*^9, 3.5607254490973887`*^9}, {3.56357328537794*^9, 
   3.56357328537794*^9}, {3.5635771114523993`*^9, 3.5635771114523993`*^9}, {
   3.673041826849613*^9, 3.673041826849613*^9}, {3.674167205686487*^9, 
   3.674167205686487*^9}, {3.6741676303597765`*^9, 3.674167633922981*^9}, {
   3.674170459212578*^9, 3.6741704637798395`*^9}, {3.6741717742057915`*^9, 
   3.6741717742057915`*^9}, {3.674171897721856*^9, 3.674171897722856*^9}, {
   3.6742772938068824`*^9, 3.6742773197933283`*^9}, {3.674277604829028*^9, 
   3.674277604829028*^9}, {3.6743222972108393`*^9, 3.6743222972108393`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Cot", "[", "z", "]"}]}]}]], "\[Equal]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"a", "+", 
      RowBox[{"\[ImaginaryI]", " ", "b"}]}]], "+", 
    FractionBox[
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "b"}], 
     RowBox[{
      SuperscriptBox["a", "2"], "+", 
      SuperscriptBox["b", "2"], "-", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"\[ImaginaryI]", " ", "b"}]}], ")"}], "2"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", "\[ImaginaryI]", " ", "z"}]]}]}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980720108405576`*^9, 
   3.4980725492711043`*^9, 3.498073175128604*^9, {3.5154687086436205`*^9, 
   3.515468723619647*^9}, {3.5154688600730867`*^9, 3.5154688600730867`*^9}, {
   3.5607254490973887`*^9, 3.5607254490973887`*^9}, {3.56357328537794*^9, 
   3.56357328537794*^9}, {3.5635771114523993`*^9, 3.5635771114523993`*^9}, {
   3.673041826849613*^9, 3.673041826849613*^9}, {3.674167205686487*^9, 
   3.674167205686487*^9}, {3.6741676303597765`*^9, 3.674167633922981*^9}, {
   3.674170459212578*^9, 3.6741704637798395`*^9}, {3.6741705909291115`*^9, 
   3.6741705909291115`*^9}, {3.674171801662362*^9, 3.674171801662362*^9}, {
   3.674171931603794*^9, 3.674171931604794*^9}, {3.674277294306083*^9, 
   3.6742773201833286`*^9}, {3.6742776751071515`*^9, 3.6742776751071515`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "+", 
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{"n", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}], "\[And]", " ", 
   RowBox[{"m", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9, 
   3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}, {
   3.674167616374977*^9, 3.6741676197541704`*^9}, {3.6741706099872017`*^9, 
   3.6741706099872017`*^9}, {3.6741722516711006`*^9, 
   3.6741722516711006`*^9}, {3.674261564301319*^9, 3.674261564301319*^9}, {
   3.674277324161336*^9, 3.674277324161336*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
       RowBox[{"ExpandIntegrand", "[", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", 
             RowBox[{"a", "-", 
              RowBox[{"\[ImaginaryI]", " ", "b"}]}]], "-", 
            FractionBox[
             RowBox[{"2", " ", "\[ImaginaryI]", " ", "b"}], 
             RowBox[{
              SuperscriptBox["a", "2"], "+", 
              SuperscriptBox["b", "2"], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"a", "-", 
                  RowBox[{"\[ImaginaryI]", " ", "b"}]}], ")"}], "2"], " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", "\[ImaginaryI]", " ", 
                 RowBox[{"(", 
                  RowBox[{"e", "+", 
                   RowBox[{"f", " ", "x"}]}], ")"}]}]]}]}]]}], ")"}], 
          RowBox[{"-", "n"}]], ",", "x"}], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
   3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
   3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
   3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
   3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
   3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
   3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
   3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
   3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9, 
   3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
   3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9, 
   3.6741717749368334`*^9, {3.6741719539690733`*^9, 3.6741719986966314`*^9}, {
   3.6742383991310067`*^9, 3.6742384190340357`*^9}, {3.674238668578492*^9, 
   3.6742386732784986`*^9}, 3.6742397497532597`*^9, {3.6742408496959596`*^9, 
   3.674240907117041*^9}, {3.6742546069003153`*^9, 3.674254697031674*^9}, {
   3.67426147437376*^9, 3.674261502298809*^9}, {3.6742773038845*^9, 
   3.6742773245045366`*^9}, {3.6742783896788073`*^9, 3.674278426198471*^9}, 
   3.6742784736849546`*^9, {3.674322614722*^9, 3.6743226238725233`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"(", 
            RowBox[{"a", "-", 
             RowBox[{"I", "*", "b"}]}], ")"}]}], "-", 
          RowBox[{"2", "*", "I", "*", 
           RowBox[{"b", "/", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", "^", "2"}], "+", 
              RowBox[{"b", "^", "2"}], "+", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"a", "-", 
                  RowBox[{"I", "*", "b"}]}], ")"}], "^", "2"}], "*", 
               RowBox[{"E", "^", 
                RowBox[{"(", 
                 RowBox[{"2", "*", "I", "*", 
                  RowBox[{"(", 
                   RowBox[{"e", "+", 
                    RowBox[{"f", "*", "x"}]}], ")"}]}], ")"}]}]}]}], 
             ")"}]}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"-", "n"}], ")"}]}], ",", "x"}], "]"}], ",", "x"}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"ILtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
   3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9, 
   3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9}, 
   3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9}, 
   3.6741717760989*^9, {3.674172044636259*^9, 3.674172093641062*^9}, {
   3.674261624239025*^9, 3.6742616670377026`*^9}, 3.67426170541777*^9, 
   3.6742773046333017`*^9, {3.6742777403152666`*^9, 3.674277740908067*^9}, {
   3.67427845407572*^9, 3.674278504838209*^9}, 3.674278561091908*^9, 
   3.6743226957846365`*^9, 3.6970871974946957`*^9, 3.706139615735484*^9, 
   3.71545736461119*^9, {3.7154576937010126`*^9, 3.715457712209071*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["5.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], " ", 
    SqrtBox[
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9, 
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9, 
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9, 
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462973285533237`*^9, 
   3.5462973314333277`*^9}, {3.5462974099434376`*^9, 3.546297410253438*^9}, {
   3.5633457359281*^9, 3.5633457362081003`*^9}, {3.56753668477185*^9, 
   3.5675366893118563`*^9}, {3.5675371645025215`*^9, 3.5675371650625224`*^9}, 
   3.5675376358531814`*^9, {3.567540921187781*^9, 3.567540945317815*^9}, {
   3.5675446460861425`*^9, 3.567544710434823*^9}, {3.567544838785164*^9, 
   3.5675448419923477`*^9}, {3.5675459222661357`*^9, 
   3.5675459227321625`*^9}, {3.5676305646094885`*^9, 3.567630564859089*^9}, {
   3.568756711228214*^9, 3.5687567156182203`*^9}, {3.568835891677881*^9, 
   3.5688358944234858`*^9}, {3.5688359490359817`*^9, 
   3.5688359490359817`*^9}, {3.568836276152956*^9, 3.5688362763401566`*^9}, {
   3.568839701927928*^9, 3.5688397021079283`*^9}, {3.568922343639141*^9, 
   3.5689223438591413`*^9}, {3.5689233425005393`*^9, 
   3.5689233427605395`*^9}, {3.568996922480447*^9, 3.568996922636447*^9}, {
   3.569204521202736*^9, 3.569204521452736*^9}, {3.5692080379266634`*^9, 
   3.5692080553766875`*^9}, 3.569208099316749*^9, {3.569208254936967*^9, 
   3.5692082551669674`*^9}, {3.5692084895272956`*^9, 3.5692084895272956`*^9}, 
   3.569259936760928*^9, 3.6735686475789547`*^9, 3.6740544188489256`*^9, 
   3.674054992406539*^9, 3.6740553401374483`*^9, {3.6740558563777585`*^9, 
   3.674055856627359*^9}, 3.674167011005352*^9, {3.6741703303102055`*^9, 
   3.674170340815806*^9}, 3.674171772047668*^9, {3.674172249967003*^9, 
   3.674172249967003*^9}, {3.6742609214854555`*^9, 3.6742609468239*^9}, {
   3.6742613038807325`*^9, 3.6742613137575502`*^9}, {3.6742772926212807`*^9, 
   3.674277318950927*^9}, {3.7445987870432453`*^9, 3.744598787386265*^9}, {
   3.7445995360680866`*^9, 3.7445995911862392`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], " ", 
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
   3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
   3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
   3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
   3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9, 
   3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
   3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
   3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.6742772931984816`*^9, 
   3.674277319403328*^9}, {3.7445978302525196`*^9, 3.744597842134199*^9}, {
   3.744598692859858*^9, 3.744598692859858*^9}, {3.744598792411552*^9, 
   3.744598845772604*^9}, 3.74459961304449*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Integration by parts\
\>", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.7445978775222235`*^9, 3.7445978812334356`*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   SqrtBox[
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}]}]], "\[Equal]", 
   RowBox[{"-", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     FractionBox[
      RowBox[{
       SqrtBox["2"], " ", "b", " ", 
       RowBox[{"ArcTanh", "[", 
        FractionBox[
         SqrtBox[
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Tan", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
         RowBox[{
          SqrtBox["2"], " ", 
          SqrtBox["a"]}]], "]"}]}], 
      RowBox[{
       SqrtBox["a"], " ", "f"}]]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980720108405576`*^9, 
   3.4980725492711043`*^9, 3.498073175128604*^9, {3.5154687086436205`*^9, 
   3.515468723619647*^9}, {3.5154688600730867`*^9, 3.5154688600730867`*^9}, {
   3.5607254490973887`*^9, 3.5607254490973887`*^9}, {3.56357328537794*^9, 
   3.56357328537794*^9}, {3.5635771114523993`*^9, 3.5635771114523993`*^9}, {
   3.673041826849613*^9, 3.673041826849613*^9}, {3.674167205686487*^9, 
   3.674167205686487*^9}, {3.6741676303597765`*^9, 3.674167633922981*^9}, {
   3.674170459212578*^9, 3.6741704637798395`*^9}, {3.6741717742057915`*^9, 
   3.6741717742057915`*^9}, {3.674171897721856*^9, 3.674171897722856*^9}, {
   3.6742772938068824`*^9, 3.6742773197933283`*^9}, {3.674277604829028*^9, 
   3.674277604829028*^9}, {3.6743222972108393`*^9, 3.6743222972108393`*^9}, {
   3.7281547906099815`*^9, 3.7281547906099815`*^9}, {3.744598058262561*^9, 
   3.744598058262561*^9}, {3.7445982631852818`*^9, 3.744598275153967*^9}, 
   3.7445989844065337`*^9, {3.7445998556933684`*^9, 3.7445998556933684`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9, 
   3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}, {
   3.674167616374977*^9, 3.6741676197541704`*^9}, {3.6741706099872017`*^9, 
   3.6741706099872017`*^9}, {3.6741722516711006`*^9, 
   3.6741722516711006`*^9}, {3.67427732057333*^9, 3.67427732057333*^9}, {
   3.744598699043212*^9, 3.744598699313227*^9}, {3.744598852374982*^9, 
   3.744598852374982*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], " ", 
    SqrtBox[
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SqrtBox["2"], " ", "b", " ", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], ")"}], " ", 
         RowBox[{"ArcTanh", "[", 
          FractionBox[
           SqrtBox[
            RowBox[{"a", "+", 
             RowBox[{"b", " ", 
              RowBox[{"Tan", "[", 
               RowBox[{"e", "+", 
                RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
           RowBox[{
            SqrtBox["2"], " ", 
            SqrtBox["a"]}]], "]"}]}], 
        RowBox[{
         SqrtBox["a"], " ", "f"}]]}]}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{
     SqrtBox["2"], " ", "b", " ", "d"}], 
    RowBox[{
     SqrtBox["a"], " ", "f"}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"ArcTanh", "[", 
      FractionBox[
       SqrtBox[
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
       RowBox[{
        SqrtBox["2"], " ", 
        SqrtBox["a"]}]], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
   3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
   3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
   3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
   3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
   3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
   3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
   3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
   3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9, 
   3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
   3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9, 
   3.72815487083557*^9, {3.7281549256387043`*^9, 3.7281549597196536`*^9}, 
   3.744597871014851*^9, 3.7445980852941074`*^9, {3.7445981745252113`*^9, 
   3.744598208284142*^9}, {3.744598252262657*^9, 3.744598255749857*^9}, {
   3.7445983043676376`*^9, 3.7445983684133005`*^9}, {3.7445998688361197`*^9, 
   3.74459994506748*^9}, 3.7445999796604586`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], ")"}], "*", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Sqrt", "[", "2", "]"}]}], "*", "b", "*", 
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", "*", "x"}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"ArcTanh", "[", 
       RowBox[{
        RowBox[{"Sqrt", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Sqrt", "[", "2", "]"}], "*", 
          RowBox[{"Rt", "[", 
           RowBox[{"a", ",", "2"}], "]"}]}], ")"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Rt", "[", 
         RowBox[{"a", ",", "2"}], "]"}], "*", "f"}], ")"}]}]}], " ", "+", " ",
     "\n", "  ", 
    RowBox[{
     RowBox[{"Sqrt", "[", "2", "]"}], "*", "b", "*", 
     RowBox[{"d", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Rt", "[", 
         RowBox[{"a", ",", "2"}], "]"}], "*", "f"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"ArcTanh", "[", 
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Tan", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], "]"}]}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Sqrt", "[", "2", "]"}], "*", 
           RowBox[{"Rt", "[", 
            RowBox[{"a", ",", "2"}], "]"}]}], ")"}]}], "]"}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
   3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9, 
   3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9}, 
   3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9}, 
   3.697087197445693*^9, 3.697138439347639*^9, 3.706139615685484*^9, 
   3.7154573646031895`*^9, 3.715457693678011*^9, {3.7281537225638924`*^9, 
   3.728153727295163*^9}, {3.7281537979912066`*^9, 3.728153802338455*^9}, {
   3.728155057901269*^9, 3.7281550613144646`*^9}, 3.7281551187597504`*^9, {
   3.7281571929093847`*^9, 3.728157193630426*^9}, {3.744598465749868*^9, 
   3.7445984782065806`*^9}, {3.7445986497853947`*^9, 
   3.7445986702105627`*^9}, {3.7446001097999024`*^9, 3.744600129494029*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], " ", 
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
   3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
   3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
   3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
   3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9, 
   3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
   3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
   3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.6742772931984816`*^9, 
   3.674277319403328*^9}, {3.7445978302525196`*^9, 3.744597842134199*^9}, {
   3.744598692859858*^9, 3.744598692859858*^9}, {3.744598792411552*^9, 
   3.7445988167949467`*^9}, 3.7445996145005727`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Integration by parts\
\>", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.7445978775222235`*^9, 3.7445978812334356`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   SqrtBox[
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Tan", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}]}]], "\[Equal]", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SqrtBox[
         RowBox[{"a", "-", 
          RowBox[{"\[ImaginaryI]", " ", "b"}]}]]}], "f"]}], " ", 
     RowBox[{
      SubscriptBox["\[PartialD]", "x"], 
      RowBox[{"ArcTanh", "[", 
       FractionBox[
        SqrtBox[
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
        SqrtBox[
         RowBox[{"a", "-", 
          RowBox[{"\[ImaginaryI]", " ", "b"}]}]]], "]"}]}]}], "+", 
    RowBox[{
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       SqrtBox[
        RowBox[{"a", "+", 
         RowBox[{"\[ImaginaryI]", " ", "b"}]}]]}], "f"], " ", 
     RowBox[{
      SubscriptBox["\[PartialD]", "x"], 
      RowBox[{"ArcTanh", "[", 
       FractionBox[
        SqrtBox[
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
        SqrtBox[
         RowBox[{"a", "+", 
          RowBox[{"\[ImaginaryI]", " ", "b"}]}]]], "]"}]}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980720108405576`*^9, 
   3.4980725492711043`*^9, 3.498073175128604*^9, {3.5154687086436205`*^9, 
   3.515468723619647*^9}, {3.5154688600730867`*^9, 3.5154688600730867`*^9}, {
   3.5607254490973887`*^9, 3.5607254490973887`*^9}, {3.56357328537794*^9, 
   3.56357328537794*^9}, {3.5635771114523993`*^9, 3.5635771114523993`*^9}, {
   3.673041826849613*^9, 3.673041826849613*^9}, {3.674167205686487*^9, 
   3.674167205686487*^9}, {3.6741676303597765`*^9, 3.674167633922981*^9}, {
   3.674170459212578*^9, 3.6741704637798395`*^9}, {3.6741717742057915`*^9, 
   3.6741717742057915`*^9}, {3.674171897721856*^9, 3.674171897722856*^9}, {
   3.6742772938068824`*^9, 3.6742773197933283`*^9}, {3.674277604829028*^9, 
   3.674277604829028*^9}, {3.6743222972108393`*^9, 3.6743222972108393`*^9}, {
   3.7281547906099815`*^9, 3.7281547906099815`*^9}, {3.744598058262561*^9, 
   3.744598058262561*^9}, {3.7445982631852818`*^9, 3.744598275153967*^9}, {
   3.7446004527405176`*^9, 3.744600458431843*^9}, {3.7446005742194653`*^9, 
   3.7446005742194653`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9, 
   3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}, {
   3.674167616374977*^9, 3.6741676197541704`*^9}, {3.6741706099872017`*^9, 
   3.6741706099872017`*^9}, {3.6741722516711006`*^9, 
   3.6741722516711006`*^9}, {3.67427732057333*^9, 3.67427732057333*^9}, {
   3.744598699043212*^9, 3.744598699313227*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], " ", 
    SqrtBox[
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         SqrtBox[
          RowBox[{"a", "-", 
           RowBox[{"\[ImaginaryI]", " ", "b"}]}]], " ", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], ")"}]}], "f"]}]}]}], " ", 
    RowBox[{"ArcTanh", "[", 
     FractionBox[
      SqrtBox[
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
      SqrtBox[
       RowBox[{"a", "-", 
        RowBox[{"\[ImaginaryI]", " ", "b"}]}]]], "]"}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"\[ImaginaryI]", " ", "b"}]}]], " ", 
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}]}], "f"], " ", 
   RowBox[{"ArcTanh", "[", 
    FractionBox[
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"\[ImaginaryI]", " ", "b"}]}]]], "]"}]}], "+", 
  "\[IndentingNewLine]", 
  RowBox[{
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", "d", " ", 
     SqrtBox[
      RowBox[{"a", "-", 
       RowBox[{"\[ImaginaryI]", " ", "b"}]}]]}], "f"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"ArcTanh", "[", 
      FractionBox[
       SqrtBox[
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
       SqrtBox[
        RowBox[{"a", "-", 
         RowBox[{"\[ImaginaryI]", " ", "b"}]}]]], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", "d", " ", 
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"\[ImaginaryI]", " ", "b"}]}]]}], "f"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"ArcTanh", "[", 
      FractionBox[
       SqrtBox[
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
       SqrtBox[
        RowBox[{"a", "+", 
         RowBox[{"\[ImaginaryI]", " ", "b"}]}]]], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
   3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
   3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
   3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
   3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
   3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
   3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
   3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
   3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9, 
   3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
   3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9, 
   3.72815487083557*^9, {3.7281549256387043`*^9, 3.7281549597196536`*^9}, 
   3.744597871014851*^9, 3.7445980852941074`*^9, {3.7445981745252113`*^9, 
   3.744598208284142*^9}, {3.744598252262657*^9, 3.744598255749857*^9}, {
   3.7445983043676376`*^9, 3.7445983684133005`*^9}, {3.7446006111075754`*^9, 
   3.744600681187584*^9}, 3.7446007138194504`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], ")"}], "*", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "I"}], "*", 
     RowBox[{"Rt", "[", 
      RowBox[{
       RowBox[{"a", "-", 
        RowBox[{"I", "*", "b"}]}], ",", "2"}], "]"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "/", "f"}], "*", 
     RowBox[{"ArcTanh", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}]}], "]"}], "/", 
       RowBox[{"Rt", "[", 
        RowBox[{
         RowBox[{"a", "-", 
          RowBox[{"I", "*", "b"}]}], ",", "2"}], "]"}]}], "]"}]}], " ", "+", 
    " ", "\n", "  ", 
    RowBox[{"I", "*", 
     RowBox[{"Rt", "[", 
      RowBox[{
       RowBox[{"a", "+", 
        RowBox[{"I", "*", "b"}]}], ",", "2"}], "]"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "/", "f"}], "*", 
     RowBox[{"ArcTanh", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}]}], "]"}], "/", 
       RowBox[{"Rt", "[", 
        RowBox[{
         RowBox[{"a", "+", 
          RowBox[{"I", "*", "b"}]}], ",", "2"}], "]"}]}], "]"}]}], " ", "+", 
    " ", "\n", "  ", 
    RowBox[{"I", "*", "d", "*", 
     RowBox[{
      RowBox[{"Rt", "[", 
       RowBox[{
        RowBox[{"a", "-", 
         RowBox[{"I", "*", "b"}]}], ",", "2"}], "]"}], "/", "f"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"ArcTanh", "[", 
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Tan", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], "]"}]}]}], "]"}], "/", 
         RowBox[{"Rt", "[", 
          RowBox[{
           RowBox[{"a", "-", 
            RowBox[{"I", "*", "b"}]}], ",", "2"}], "]"}]}], "]"}], ",", "x"}],
       "]"}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{"I", "*", "d", "*", 
     RowBox[{
      RowBox[{"Rt", "[", 
       RowBox[{
        RowBox[{"a", "+", 
         RowBox[{"I", "*", "b"}]}], ",", "2"}], "]"}], "/", "f"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"ArcTanh", "[", 
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Tan", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], "]"}]}]}], "]"}], "/", 
         RowBox[{"Rt", "[", 
          RowBox[{
           RowBox[{"a", "+", 
            RowBox[{"I", "*", "b"}]}], ",", "2"}], "]"}]}], "]"}], ",", "x"}],
       "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
   3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9, 
   3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9}, 
   3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9}, 
   3.697087197445693*^9, 3.697138439347639*^9, 3.706139615685484*^9, 
   3.7154573646031895`*^9, 3.715457693678011*^9, {3.7281537225638924`*^9, 
   3.728153727295163*^9}, {3.7281537979912066`*^9, 3.728153802338455*^9}, {
   3.728155057901269*^9, 3.7281550613144646`*^9}, 3.7281551187597504`*^9, {
   3.7281571929093847`*^9, 3.728157193630426*^9}, {3.744598465749868*^9, 
   3.7445984782065806`*^9}, {3.7445986497853947`*^9, 
   3.7445986702105627`*^9}, {3.744600808593871*^9, 3.7446008472250805`*^9}, 
   3.744604614538559*^9, 3.744604692331008*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["6.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], 
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}]]], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9, 
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9, 
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9, 
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462973285533237`*^9, 
   3.5462973314333277`*^9}, {3.5462974099434376`*^9, 3.546297410253438*^9}, {
   3.5633457359281*^9, 3.5633457362081003`*^9}, {3.56753668477185*^9, 
   3.5675366893118563`*^9}, {3.5675371645025215`*^9, 3.5675371650625224`*^9}, 
   3.5675376358531814`*^9, {3.567540921187781*^9, 3.567540945317815*^9}, {
   3.5675446460861425`*^9, 3.567544710434823*^9}, {3.567544838785164*^9, 
   3.5675448419923477`*^9}, {3.5675459222661357`*^9, 
   3.5675459227321625`*^9}, {3.5676305646094885`*^9, 3.567630564859089*^9}, {
   3.568756711228214*^9, 3.5687567156182203`*^9}, {3.568835891677881*^9, 
   3.5688358944234858`*^9}, {3.5688359490359817`*^9, 
   3.5688359490359817`*^9}, {3.568836276152956*^9, 3.5688362763401566`*^9}, {
   3.568839701927928*^9, 3.5688397021079283`*^9}, {3.568922343639141*^9, 
   3.5689223438591413`*^9}, {3.5689233425005393`*^9, 
   3.5689233427605395`*^9}, {3.568996922480447*^9, 3.568996922636447*^9}, {
   3.569204521202736*^9, 3.569204521452736*^9}, {3.5692080379266634`*^9, 
   3.5692080553766875`*^9}, 3.569208099316749*^9, {3.569208254936967*^9, 
   3.5692082551669674`*^9}, {3.5692084895272956`*^9, 3.5692084895272956`*^9}, 
   3.569259936760928*^9, 3.6735686475789547`*^9, 3.6740544188489256`*^9, 
   3.674054992406539*^9, 3.6740553401374483`*^9, {3.6740558563777585`*^9, 
   3.674055856627359*^9}, 3.674167011005352*^9, {3.6741703303102055`*^9, 
   3.674170340815806*^9}, 3.674171772047668*^9, {3.674172249967003*^9, 
   3.674172249967003*^9}, {3.6742609214854555`*^9, 3.6742609468239*^9}, {
   3.6742613038807325`*^9, 3.6742613137575502`*^9}, {3.6742772926212807`*^9, 
   3.674277318950927*^9}, {3.7445987870432453`*^9, 3.744598787386265*^9}, {
   3.7445995360680866`*^9, 3.7445995420604296`*^9}, {3.744599585290902*^9, 
   3.744599585506914*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], 
      SqrtBox[
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}]]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
   3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
   3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
   3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
   3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9, 
   3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
   3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
   3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.6742772931984816`*^9, 
   3.674277319403328*^9}, {3.7445978302525196`*^9, 3.744597842134199*^9}, {
   3.744598692859858*^9, 3.744598692859858*^9}, {3.744598792411552*^9, 
   3.744598845772604*^9}, 3.74459961304449*^9, 3.744601103060714*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Algebraic expansion\
\>", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.7445978775222235`*^9, 3.7445978812334356`*^9}, {
   3.744603800828017*^9, 3.744603805752299*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"c", "+", 
     RowBox[{"d", " ", "x"}]}], 
    SqrtBox[
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", "z", "]"}]}]}]]], "\[Equal]", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], " ", 
      SqrtBox[
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", "z", "]"}]}]}]]}], 
     RowBox[{"2", " ", "a"}]], "+", 
    FractionBox[
     RowBox[{"a", " ", 
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"Sec", "[", "z", "]"}], "2"]}], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Tan", "[", "z", "]"}]}]}], ")"}], 
       RowBox[{"3", "/", "2"}]]}]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980720108405576`*^9, 
   3.4980725492711043`*^9, 3.498073175128604*^9, {3.5154687086436205`*^9, 
   3.515468723619647*^9}, {3.5154688600730867`*^9, 3.5154688600730867`*^9}, {
   3.5607254490973887`*^9, 3.5607254490973887`*^9}, {3.56357328537794*^9, 
   3.56357328537794*^9}, {3.5635771114523993`*^9, 3.5635771114523993`*^9}, {
   3.673041826849613*^9, 3.673041826849613*^9}, {3.674167205686487*^9, 
   3.674167205686487*^9}, {3.6741676303597765`*^9, 3.674167633922981*^9}, {
   3.674170459212578*^9, 3.6741704637798395`*^9}, {3.6741717742057915`*^9, 
   3.6741717742057915`*^9}, {3.674171897721856*^9, 3.674171897722856*^9}, {
   3.6742772938068824`*^9, 3.6742773197933283`*^9}, {3.674277604829028*^9, 
   3.674277604829028*^9}, {3.6743222972108393`*^9, 3.6743222972108393`*^9}, {
   3.7281547906099815`*^9, 3.7281547906099815`*^9}, {3.744598058262561*^9, 
   3.744598058262561*^9}, {3.7445982631852818`*^9, 3.744598275153967*^9}, 
   3.7445989844065337`*^9, {3.7445998556933684`*^9, 3.7445998556933684`*^9}, {
   3.7446011282151527`*^9, 3.7446011311063175`*^9}, {3.744601317722992*^9, 
   3.744601338659189*^9}, {3.74460368269226*^9, 3.74460368269226*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9, 
   3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}, {
   3.674167616374977*^9, 3.6741676197541704`*^9}, {3.6741706099872017`*^9, 
   3.6741706099872017`*^9}, {3.6741722516711006`*^9, 
   3.6741722516711006`*^9}, {3.67427732057333*^9, 3.67427732057333*^9}, {
   3.744598699043212*^9, 3.744598699313227*^9}, {3.744598852374982*^9, 
   3.744598852374982*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], 
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}]]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", " ", 
      FractionBox["1", 
       RowBox[{"2", " ", "a"}]]}]}], 
    RowBox[{"\[Integral]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], " ", 
      SqrtBox[
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+", 
  RowBox[{
   FractionBox["a", "2"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"Sec", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}], "2"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], 
       RowBox[{"3", "/", "2"}]]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
   3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
   3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
   3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
   3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
   3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
   3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
   3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
   3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9, 
   3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
   3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9, 
   3.72815487083557*^9, {3.7281549256387043`*^9, 3.7281549597196536`*^9}, 
   3.744597871014851*^9, 3.7445980852941074`*^9, {3.7445981745252113`*^9, 
   3.744598208284142*^9}, {3.744598252262657*^9, 3.744598255749857*^9}, {
   3.7445983043676376`*^9, 3.7445983684133005`*^9}, {3.7445998688361197`*^9, 
   3.74459994506748*^9}, 3.7445999796604586`*^9, 3.7446011114301925`*^9, {
   3.7446014819993877`*^9, 3.744601525095853*^9}, {3.744601759874281*^9, 
   3.7446018191456714`*^9}, {3.744602017544019*^9, 3.744602050970931*^9}, {
   3.7446021088242397`*^9, 3.744602130176461*^9}, 3.744602420577071*^9, {
   3.744603603791747*^9, 3.7446036039747577`*^9}, {3.744603705911588*^9, 
   3.744603743719751*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], ")"}], "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "a"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}], "*", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], "]"}]}], ",", "x"}], 
      "]"}]}], " ", "+", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"a", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}], "*", 
        RowBox[{
         RowBox[{
          RowBox[{"Sec", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}], "^", "2"}], "/", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"Tan", "[", 
              RowBox[{"e", "+", 
               RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"3", "/", "2"}], ")"}]}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
   3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9, 
   3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9}, 
   3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9}, 
   3.697087197445693*^9, 3.697138439347639*^9, 3.706139615685484*^9, 
   3.7154573646031895`*^9, 3.715457693678011*^9, {3.7281537225638924`*^9, 
   3.728153727295163*^9}, {3.7281537979912066`*^9, 3.728153802338455*^9}, {
   3.728155057901269*^9, 3.7281550613144646`*^9}, 3.7281551187597504`*^9, {
   3.7281571929093847`*^9, 3.728157193630426*^9}, {3.744598465749868*^9, 
   3.7445984782065806`*^9}, {3.7445986497853947`*^9, 
   3.7445986702105627`*^9}, {3.7446001097999024`*^9, 3.744600129494029*^9}, 
   3.7446038230062857`*^9, 3.744603871967086*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], 
      SqrtBox[
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}]]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "+", 
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
   3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
   3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
   3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
   3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9, 
   3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
   3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
   3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.6742772931984816`*^9, 
   3.674277319403328*^9}, {3.7445978302525196`*^9, 3.744597842134199*^9}, {
   3.744598692859858*^9, 3.744598692859858*^9}, {3.744598792411552*^9, 
   3.7445988167949467`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Integration by parts\
\>", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.7445978775222235`*^9, 3.7445978812334356`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    SqrtBox[
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}]]], "\[Equal]", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["\[ImaginaryI]", 
       RowBox[{"f", " ", 
        SqrtBox[
         RowBox[{"a", "-", 
          RowBox[{"\[ImaginaryI]", " ", "b"}]}]]}]]}], " ", 
     RowBox[{
      SubscriptBox["\[PartialD]", "x"], 
      RowBox[{"ArcTanh", "[", 
       FractionBox[
        SqrtBox[
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
        SqrtBox[
         RowBox[{"a", "-", 
          RowBox[{"\[ImaginaryI]", " ", "b"}]}]]], "]"}]}]}], "+", 
    RowBox[{
     FractionBox["\[ImaginaryI]", 
      RowBox[{"f", " ", 
       SqrtBox[
        RowBox[{"a", "+", 
         RowBox[{"\[ImaginaryI]", " ", "b"}]}]]}]], " ", 
     RowBox[{
      SubscriptBox["\[PartialD]", "x"], 
      RowBox[{"ArcTanh", "[", 
       FractionBox[
        SqrtBox[
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
        SqrtBox[
         RowBox[{"a", "+", 
          RowBox[{"\[ImaginaryI]", " ", "b"}]}]]], "]"}]}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, {
   3.4980703053275614`*^9, 3.4980703053275614`*^9}, 3.4980720108405576`*^9, 
   3.4980725492711043`*^9, 3.498073175128604*^9, {3.5154687086436205`*^9, 
   3.515468723619647*^9}, {3.5154688600730867`*^9, 3.5154688600730867`*^9}, {
   3.5607254490973887`*^9, 3.5607254490973887`*^9}, {3.56357328537794*^9, 
   3.56357328537794*^9}, {3.5635771114523993`*^9, 3.5635771114523993`*^9}, {
   3.673041826849613*^9, 3.673041826849613*^9}, {3.674167205686487*^9, 
   3.674167205686487*^9}, {3.6741676303597765`*^9, 3.674167633922981*^9}, {
   3.674170459212578*^9, 3.6741704637798395`*^9}, {3.6741717742057915`*^9, 
   3.6741717742057915`*^9}, {3.674171897721856*^9, 3.674171897722856*^9}, {
   3.6742772938068824`*^9, 3.6742773197933283`*^9}, {3.674277604829028*^9, 
   3.674277604829028*^9}, {3.6743222972108393`*^9, 3.6743222972108393`*^9}, {
   3.7281547906099815`*^9, 3.7281547906099815`*^9}, {3.744598058262561*^9, 
   3.744598058262561*^9}, {3.7445982631852818`*^9, 3.744598275153967*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9, 
   3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}, {
   3.674167616374977*^9, 3.6741676197541704`*^9}, {3.6741706099872017`*^9, 
   3.6741706099872017`*^9}, {3.6741722516711006`*^9, 
   3.6741722516711006`*^9}, {3.67427732057333*^9, 3.67427732057333*^9}, {
   3.744598699043212*^9, 3.744598699313227*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], 
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}]]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], ")"}]}], 
        RowBox[{"f", " ", 
         SqrtBox[
          RowBox[{"a", "-", 
           RowBox[{"\[ImaginaryI]", " ", "b"}]}]]}]]}]}]}], " ", 
    RowBox[{"ArcTanh", "[", 
     FractionBox[
      SqrtBox[
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
      SqrtBox[
       RowBox[{"a", "-", 
        RowBox[{"\[ImaginaryI]", " ", "b"}]}]]], "]"}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}]}], 
    RowBox[{"f", " ", 
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"\[ImaginaryI]", " ", "b"}]}]]}]], " ", 
   RowBox[{"ArcTanh", "[", 
    FractionBox[
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"\[ImaginaryI]", " ", "b"}]}]]], "]"}]}], "+", 
  "\[IndentingNewLine]", 
  RowBox[{
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", "d"}], 
    RowBox[{"f", " ", 
     SqrtBox[
      RowBox[{"a", "-", 
       RowBox[{"\[ImaginaryI]", " ", "b"}]}]]}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"ArcTanh", "[", 
      FractionBox[
       SqrtBox[
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
       SqrtBox[
        RowBox[{"a", "-", 
         RowBox[{"\[ImaginaryI]", " ", "b"}]}]]], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", "d"}], 
    RowBox[{"f", " ", 
     SqrtBox[
      RowBox[{"a", "+", 
       RowBox[{"\[ImaginaryI]", " ", "b"}]}]]}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"ArcTanh", "[", 
      FractionBox[
       SqrtBox[
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
       SqrtBox[
        RowBox[{"a", "+", 
         RowBox[{"\[ImaginaryI]", " ", "b"}]}]]], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
   3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
   3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
   3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
   3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
   3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
   3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
   3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
   3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9, 
   3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
   3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9, 
   3.72815487083557*^9, {3.7281549256387043`*^9, 3.7281549597196536`*^9}, 
   3.744597871014851*^9, 3.7445980852941074`*^9, {3.7445981745252113`*^9, 
   3.744598208284142*^9}, {3.744598252262657*^9, 3.744598255749857*^9}, {
   3.7445983043676376`*^9, 3.7445983684133005`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], ")"}], "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"tan", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], "]"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "I"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"Rt", "[", 
         RowBox[{
          RowBox[{"a", "-", 
           RowBox[{"I", "*", "b"}]}], ",", "2"}], "]"}]}], ")"}]}], "*", 
     RowBox[{"ArcTanh", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}]}], "]"}], "/", 
       RowBox[{"Rt", "[", 
        RowBox[{
         RowBox[{"a", "-", 
          RowBox[{"I", "*", "b"}]}], ",", "2"}], "]"}]}], "]"}]}], " ", "+", 
    " ", "\n", "  ", 
    RowBox[{"I", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"Rt", "[", 
         RowBox[{
          RowBox[{"a", "+", 
           RowBox[{"I", "*", "b"}]}], ",", "2"}], "]"}]}], ")"}]}], "*", 
     RowBox[{"ArcTanh", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}]}], "]"}], "/", 
       RowBox[{"Rt", "[", 
        RowBox[{
         RowBox[{"a", "+", 
          RowBox[{"I", "*", "b"}]}], ",", "2"}], "]"}]}], "]"}]}], " ", "+", 
    " ", "\n", "  ", 
    RowBox[{"I", "*", 
     RowBox[{"d", "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"Rt", "[", 
         RowBox[{
          RowBox[{"a", "-", 
           RowBox[{"I", "*", "b"}]}], ",", "2"}], "]"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"ArcTanh", "[", 
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Tan", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], "]"}]}]}], "]"}], "/", 
         RowBox[{"Rt", "[", 
          RowBox[{
           RowBox[{"a", "-", 
            RowBox[{"I", "*", "b"}]}], ",", "2"}], "]"}]}], "]"}], ",", "x"}],
       "]"}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{"I", "*", 
     RowBox[{"d", "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"Rt", "[", 
         RowBox[{
          RowBox[{"a", "+", 
           RowBox[{"I", "*", "b"}]}], ",", "2"}], "]"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"ArcTanh", "[", 
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Tan", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], "]"}]}]}], "]"}], "/", 
         RowBox[{"Rt", "[", 
          RowBox[{
           RowBox[{"a", "+", 
            RowBox[{"I", "*", "b"}]}], ",", "2"}], "]"}]}], "]"}], ",", "x"}],
       "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "+", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
   3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9, 
   3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9}, 
   3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9}, 
   3.697087197445693*^9, 3.697138439347639*^9, 3.706139615685484*^9, 
   3.7154573646031895`*^9, 3.715457693678011*^9, {3.7281537225638924`*^9, 
   3.728153727295163*^9}, {3.7281537979912066`*^9, 3.728153802338455*^9}, {
   3.728155057901269*^9, 3.7281550613144646`*^9}, 3.7281551187597504`*^9, {
   3.7281571929093847`*^9, 3.728157193630426*^9}, {3.744598465749868*^9, 
   3.7445984782065806`*^9}, {3.7445986497853947`*^9, 3.7445986702105627`*^9}, 
   3.7446047073688684`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["X:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, 3.5622940305792723`*^9, {3.5622942446095715`*^9, 
   3.562294244919572*^9}, {3.564341532826086*^9, 3.5643415472093115`*^9}, {
   3.5643415952261963`*^9, 3.564341621543442*^9}, {3.5653712427559214`*^9, 
   3.5653712662959547`*^9}, {3.567536711771888*^9, 3.5675367305719137`*^9}, {
   3.567536861132097*^9, 3.5675368736121144`*^9}, {3.5675373448827744`*^9, 
   3.567537359022794*^9}, 3.567537618133157*^9, {3.5675449022087917`*^9, 
   3.567544938338858*^9}, 3.5675454535133247`*^9, 3.568756731398242*^9, {
   3.568835895390687*^9, 3.568835896342289*^9}, {3.5688359541215906`*^9, 
   3.5688359541215906`*^9}, {3.568851625271058*^9, 3.5688516293410635`*^9}, {
   3.569204001072007*^9, 3.569204004992013*^9}, {3.569204303412431*^9, 
   3.569204307292436*^9}, {3.5692045761028123`*^9, 3.569204587352828*^9}, {
   3.569205883784643*^9, 3.5692058902746525`*^9}, {3.5692059270447035`*^9, 
   3.569205949874736*^9}, {3.5692065112355213`*^9, 3.569206514985527*^9}, {
   3.569208580617423*^9, 3.5692085822774253`*^9}, 3.569699853809244*^9, {
   3.5697004398877664`*^9, 3.5697004398877664`*^9}, 3.673470295682214*^9, {
   3.6734808068368773`*^9, 3.673480812856886*^9}, {3.6734812118905478`*^9, 
   3.6734812121005483`*^9}, {3.673485207378795*^9, 3.6734852076887956`*^9}, 
   3.6734852379518394`*^9, {3.67348528819391*^9, 3.673485311610944*^9}, {
   3.673485373452033*^9, 3.673485373452033*^9}, 3.673544572185848*^9, 
   3.673544743054061*^9, {3.6735447765981197`*^9, 3.6735447897021427`*^9}, {
   3.6735451069205027`*^9, 3.6735451216841288`*^9}, 3.673571609358359*^9, 
   3.674054419613327*^9, 3.67405499278094*^9, 3.674055340543049*^9, 
   3.674163550238407*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Tan", "[", 
    RowBox[{"e", "+", 
     RowBox[{"f", " ", "x"}]}], "]"}], "\[Equal]", 
   RowBox[{"-", 
    RowBox[{"Cot", "[", 
     RowBox[{"e", "-", 
      FractionBox["\[Pi]", "2"], "+", 
      RowBox[{"f", " ", "x"}]}], "]"}]}]}]], "Input",
  CellChangeTimes->{{3.6971206512656307`*^9, 3.6971206648834095`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.6742377041110096`*^9, 3.6742377101110177`*^9}, 
   3.6742405200764894`*^9, {3.6971206382788877`*^9, 3.6971206392179413`*^9}, 
   3.6971206734869013`*^9, {3.6971207751047134`*^9, 3.6971207751047134`*^9}, {
   3.6971219198581896`*^9, 3.6971219198581896`*^9}, {3.6971220594221725`*^9, 
   3.6971220594221725`*^9}, {3.6971221823712044`*^9, 3.6971221823712044`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Tan", "[", 
    RowBox[{"e", "+", 
     RowBox[{"f", " ", "x"}]}], "]"}], "\[Equal]", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"Tanh", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "e"}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "f", " ", "x"}]}], "]"}]}]}]], "Input",
  CellChangeTimes->{{3.6971206512656307`*^9, 3.6971206648834095`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.6742377041110096`*^9, 3.6742377101110177`*^9}, 
   3.6742405200764894`*^9, {3.6971206382788877`*^9, 3.6971206392179413`*^9}, 
   3.6971206734869013`*^9, {3.6971207751047134`*^9, 3.6971207751047134`*^9}, {
   3.697654455152834*^9, 3.697654455152834*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Tan", "[", 
    RowBox[{"e", "+", 
     RowBox[{"f", " ", "x"}]}], "]"}], "\[Equal]", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"Coth", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", 
       RowBox[{"(", 
        RowBox[{"e", "-", 
         FractionBox["\[Pi]", "2"]}], ")"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", "f", " ", "x"}]}], "]"}]}]}]], "Input",
  CellChangeTimes->{{3.6971206512656307`*^9, 3.6971206648834095`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.6742377041110096`*^9, 3.6742377101110177`*^9}, 
   3.6742405200764894`*^9, {3.6971206382788877`*^9, 3.6971206392179413`*^9}, 
   3.6971206734869013`*^9, {3.6971208525321417`*^9, 3.6971208525321417`*^9}, {
   3.6976544777171245`*^9, 3.6976544777171245`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, {
   3.49766243823297*^9, 3.4976624525849953`*^9}, {3.4976629473554645`*^9, 
   3.49766295624748*^9}, {3.4982405753732615`*^9, 3.4982405793132668`*^9}, {
   3.499020266797401*^9, 3.499020267357402*^9}, {3.673480815126889*^9, 
   3.673480815126889*^9}, {3.673485324113962*^9, 3.673485324113962*^9}, {
   3.6734853756320357`*^9, 3.6734853756320357`*^9}, {3.6735448067267733`*^9, 
   3.6735448067267733`*^9}, {3.6735451425901656`*^9, 3.673545143962968*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], " ", 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, {
   3.4976623833052735`*^9, 3.4976624037569094`*^9}, {3.497663070736081*^9, 
   3.4976631028721375`*^9}, {3.4990190901657534`*^9, 
   3.4990190901657534`*^9}, {3.499020281147421*^9, 3.499020315247469*^9}, {
   3.673470299122218*^9, 3.673470309116233*^9}, {3.6734808261669044`*^9, 
   3.6734808320589128`*^9}, {3.6734852411818438`*^9, 
   3.6734852630578747`*^9}, {3.6735448134191847`*^9, 3.673544853919856*^9}, 
   3.673545135068952*^9, {3.673571621535055*^9, 3.673571622023083*^9}, {
   3.6740544196445274`*^9, 3.6740544196445274`*^9}, {3.6740549927965403`*^9, 
   3.6740549927965403`*^9}, {3.674055340558649*^9, 3.674055340558649*^9}, {
   3.6741635507344356`*^9, 3.6741635510944567`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"tan", "[", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"MatchQ", "[", 
      RowBox[{"f", ",", 
       RowBox[{"f1_.", "*", 
        RowBox[{"Complex", "[", 
         RowBox[{"0", ",", "j_"}], "]"}]}]}], "]"}], ",", "\n", "    ", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"MatchQ", "[", 
        RowBox[{"e", ",", 
         RowBox[{"e1_.", "+", 
          RowBox[{"Pi", "/", "2"}]}]}], "]"}], ",", "\n", "      ", 
       RowBox[{
        RowBox[{"I", "^", "n"}], "*", 
        RowBox[{"Unintegrable", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"c", "+", 
              RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
           RowBox[{
            RowBox[{"Coth", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "I"}], "*", 
               RowBox[{"(", 
                RowBox[{"e", "-", 
                 RowBox[{"Pi", "/", "2"}]}], ")"}]}], "-", 
              RowBox[{"I", "*", "f", "*", "x"}]}], "]"}], "^", "n"}]}], ",", 
          "x"}], "]"}]}], ",", "\n", "    ", 
       RowBox[{
        RowBox[{"I", "^", "n"}], "*", 
        RowBox[{"Unintegrable", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"c", "+", 
              RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
           RowBox[{
            RowBox[{"Tanh", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "I"}], "*", "e"}], "-", 
              RowBox[{"I", "*", "f", "*", "x"}]}], "]"}], "^", "n"}]}], ",", 
          "x"}], "]"}]}]}], "]"}], ",", "\n", "  ", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"MatchQ", "[", 
        RowBox[{"e", ",", 
         RowBox[{"e1_.", "+", 
          RowBox[{"Pi", "/", "2"}]}]}], "]"}], ",", "\n", "    ", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "^", "n"}], "*", 
        RowBox[{"Unintegrable", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"c", "+", 
              RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
           RowBox[{
            RowBox[{"Cot", "[", 
             RowBox[{"e", "-", 
              RowBox[{"Pi", "/", "2"}], "+", 
              RowBox[{"f", "*", "x"}]}], "]"}], "^", "n"}]}], ",", "x"}], 
         "]"}]}], ",", "\n", "  ", 
       RowBox[{"Unintegrable", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"c", "+", 
             RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
          RowBox[{
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}], "^", "n"}]}], ",", "x"}], 
        "]"}]}], "]"}]}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "e", ",", "f", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "n", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976620452370796`*^9, 3.497662356878827*^9, {
   3.497662464394216*^9, 3.497662468965024*^9}, 3.497662899853381*^9, {
   3.4990190901657534`*^9, 3.4990190901757536`*^9}, 3.499020260597392*^9, {
   3.569701527794991*^9, 3.569701549864253*^9}, {3.673470334807271*^9, 
   3.673470343827284*^9}, {3.673472101348009*^9, 3.6734721101550217`*^9}, {
   3.6734808382869225`*^9, 3.673480849636938*^9}, 3.6734809989872427`*^9, {
   3.673485355797007*^9, 3.6734853977560673`*^9}, 3.673485499780302*^9, {
   3.6735449135999613`*^9, 3.6735449901426964`*^9}, {3.673545154948387*^9, 
   3.673545192577654*^9}, {3.673546145558842*^9, 3.6735461464012437`*^9}, {
   3.6735716224641085`*^9, 3.673571622933135*^9}, 3.6740544424557676`*^9, 
   3.674054603219452*^9, 3.674055018803786*^9, 3.674055053564647*^9, {
   3.6740553582490807`*^9, 3.674055384241726*^9}, 3.6740561192246227`*^9, {
   3.6741635514804783`*^9, 3.6741635521035137`*^9}, 3.697087197512697*^9, 
   3.6971146289651747`*^9, {3.697117950029128*^9, 3.697118093154315*^9}, 
   3.697118182364417*^9, {3.6971194860469837`*^9, 3.6971195893878946`*^9}, {
   3.697119632742374*^9, 3.6971197328531*^9}, {3.6971200605898457`*^9, 
   3.6971200703194017`*^9}, 3.6971202889219055`*^9, {3.6971203672333846`*^9, 
   3.6971203807631583`*^9}, {3.697120437404398*^9, 3.697120438693472*^9}, {
   3.6971204863001947`*^9, 3.697120513368743*^9}, {3.6971205463076267`*^9, 
   3.6971205586583333`*^9}, {3.697120820664319*^9, 3.6971208236804914`*^9}, {
   3.697120863611776*^9, 3.697120869520114*^9}, {3.6971214744257126`*^9, 
   3.697121487066435*^9}, {3.6971216222871695`*^9, 3.6971216823236036`*^9}, {
   3.697121744469158*^9, 3.697121795271064*^9}, {3.697122010094351*^9, 
   3.697122017686785*^9}, {3.6971220870847545`*^9, 3.6971221275730705`*^9}, {
   3.69765410506581*^9, 3.697654127639101*^9}, {3.697654486352618*^9, 
   3.6976544903378468`*^9}, {3.6976547109634657`*^9, 3.697654714062643*^9}, {
   3.712337655514819*^9, 3.7123376555378203`*^9}, {3.715549482383757*^9, 
   3.715549517211749*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"tan", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}]}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "m", ",", 
       "n"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976620452370796`*^9, 3.497662356878827*^9, {
   3.497662464394216*^9, 3.497662468965024*^9}, 3.497662899853381*^9, {
   3.4990190901657534`*^9, 3.4990190901757536`*^9}, 3.499020260597392*^9, {
   3.569701527794991*^9, 3.569701549864253*^9}, {3.673470334807271*^9, 
   3.673470343827284*^9}, {3.673472101348009*^9, 3.6734721101550217`*^9}, {
   3.6734808382869225`*^9, 3.673480849636938*^9}, 3.6734809989872427`*^9, {
   3.673485355797007*^9, 3.6734853977560673`*^9}, 3.673485499780302*^9, {
   3.6735449135999613`*^9, 3.6735449901426964`*^9}, {3.673545154948387*^9, 
   3.673545192577654*^9}, {3.673546145558842*^9, 3.6735461464012437`*^9}, {
   3.6735716224641085`*^9, 3.673571622933135*^9}, 3.6740544424557676`*^9, 
   3.674054603219452*^9, 3.674055018803786*^9, 3.674055053564647*^9, {
   3.6740553582490807`*^9, 3.674055384241726*^9}, 3.6740561192246227`*^9, {
   3.6741635514804783`*^9, 3.6741635521035137`*^9}, 3.697087197512697*^9, 
   3.6971146289651747`*^9, {3.697117950029128*^9, 3.697118093154315*^9}, 
   3.697118182364417*^9, {3.6971194860469837`*^9, 3.6971195893878946`*^9}, {
   3.697119632742374*^9, 3.6971197328531*^9}, {3.6971200605898457`*^9, 
   3.6971200703194017`*^9}, 3.6971202889219055`*^9, {3.6971203672333846`*^9, 
   3.6971203807631583`*^9}, {3.697120437404398*^9, 3.697120438693472*^9}, {
   3.6971204863001947`*^9, 3.697120513368743*^9}, {3.6971205463076267`*^9, 
   3.6971205586583333`*^9}, {3.697120820664319*^9, 3.6971208236804914`*^9}, {
   3.697120863611776*^9, 3.697120869520114*^9}, {3.6971214744257126`*^9, 
   3.697121487066435*^9}, 3.697121533026064*^9, {3.6971216030200677`*^9, 
   3.6971216071253023`*^9}, 3.7123376555488214`*^9, 3.715549482394758*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["N:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["u", "m"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", "v", "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{"u", "\[Equal]", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}]}], " ", "\[And]", " ", 
      RowBox[{"v", "\[Equal]", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}]}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.519414474720132*^9}, {
   3.5197939535480833`*^9, 3.5197939539380836`*^9}, {3.5197940297698174`*^9, 
   3.5197940299726176`*^9}, 3.519795153580191*^9, {3.5200103027397947`*^9, 
   3.5200103044997973`*^9}, {3.5232186878169007`*^9, 
   3.5232186881569014`*^9}, {3.5232193955778913`*^9, 
   3.5232193955778913`*^9}, {3.5233166487845354`*^9, 
   3.5233166487845354`*^9}, {3.5233167010346084`*^9, 
   3.5233167010346084`*^9}, {3.523318546315711*^9, 3.523318573368556*^9}, {
   3.5239220709492664`*^9, 3.5239220924617043`*^9}, {3.5239221279205666`*^9, 
   3.5239221365629816`*^9}, {3.523930270899587*^9, 3.523930270899587*^9}, {
   3.5240761703528385`*^9, 3.5240761703528385`*^9}, {3.52407843124921*^9, 
   3.5240784332304134`*^9}, {3.5240784932749186`*^9, 
   3.5240784932749186`*^9}, {3.524079230095413*^9, 3.524079246553442*^9}, {
   3.5240858499762287`*^9, 3.524085860178646*^9}, {3.524085945261196*^9, 
   3.524085945261196*^9}, {3.5242763399632483`*^9, 3.5242763411488504`*^9}, {
   3.5242771575294847`*^9, 3.5242771578102846`*^9}, {3.530500224433988*^9, 
   3.530500225113989*^9}, {3.5313467876910577`*^9, 3.5313467883119507`*^9}, {
   3.5332231066826243`*^9, 3.5332231066826243`*^9}, {3.5332248881251183`*^9, 
   3.533224890245121*^9}, {3.5361011385491977`*^9, 3.5361011394332485`*^9}, {
   3.5363501469745007`*^9, 3.5363501506345057`*^9}, {3.5363617411167684`*^9, 
   3.5363617534067855`*^9}, {3.536366615151597*^9, 3.5363666230616083`*^9}, {
   3.5363667754518213`*^9, 3.5363667821318307`*^9}, {3.536366906722005*^9, 
   3.536366922022027*^9}, {3.536596861742076*^9, 3.5365968701504908`*^9}, {
   3.5366042542749715`*^9, 3.536604254462172*^9}, {3.536625554425806*^9, 
   3.536625554775807*^9}, {3.5366276426139326`*^9, 3.536627642853933*^9}, {
   3.536629402336396*^9, 3.536629402746397*^9}, {3.5366940603006477`*^9, 
   3.536694061273703*^9}, {3.5366943323932104`*^9, 3.536694332661226*^9}, {
   3.536694390476533*^9, 3.536694402176202*^9}, {3.5368634751022315`*^9, 
   3.5368634756170325`*^9}, {3.536980474148706*^9, 3.5369804925387316`*^9}, {
   3.5369807910591497`*^9, 3.5369808136991816`*^9}, 3.538443999546241*^9, {
   3.538444040229568*^9, 3.5384440801737804`*^9}, {3.544471201864182*^9, 
   3.5444712020241823`*^9}, {3.5499343621399236`*^9, 
   3.5499343628887253`*^9}, {3.5693429012648573`*^9, 3.569342923814889*^9}, {
   3.5693432071452856`*^9, 3.5693432074652863`*^9}, {3.569351915062778*^9, 
   3.569351927142795*^9}, {3.569352555713675*^9, 3.569352597773734*^9}, {
   3.5694315155137024`*^9, 3.569431516203704*^9}, {3.5748842843912826`*^9, 
   3.5748842879212875`*^9}, {3.5748843600113883`*^9, 3.574884366281397*^9}, 
   3.5748844907815714`*^9, {3.574884521101614*^9, 3.5748845214216146`*^9}, 
   3.590638001724437*^9, {3.673567804677744*^9, 3.673567804842753*^9}, 
   3.6739034525366917`*^9, 3.6739043270907135`*^9, {3.6739044139566813`*^9, 
   3.673904414164694*^9}, {3.6739044683787947`*^9, 3.673904474094121*^9}, {
   3.6739260862572947`*^9, 3.6739260862572947`*^9}, {3.673928215187522*^9, 
   3.673928219207527*^9}, 3.6739291909660025`*^9, {3.674056033088871*^9, 
   3.674056034071673*^9}, {3.67405609490118*^9, 3.6740560951507807`*^9}, 
   3.674163547823269*^9, {3.674322806949995*^9, 3.6743228072590127`*^9}, {
   3.697086315361241*^9, 3.697086316120284*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic normalization", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495840214754669*^9, {3.4958483177760134`*^9, 
   3.495848318886015*^9}, {3.495925911922002*^9, 3.495925920122013*^9}, 
   3.4961847242848682`*^9, 3.496184957525194*^9, 3.496188449500083*^9, 
   3.4961908979261436`*^9, 3.4961924998683863`*^9, 3.4961928754389124`*^9, {
   3.51849075797458*^9, 3.5184907698562593`*^9}, 3.574710542770027*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"u", "\[Equal]", 
    RowBox[{"c", "+", 
     RowBox[{"d", " ", "x"}]}]}], " ", "\[And]", " ", 
   RowBox[{"v", "\[Equal]", 
    RowBox[{"e", "+", 
     RowBox[{"f", " ", "x"}]}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.495402251391507*^9, 3.4954022711315346`*^9}, {
   3.495488783827441*^9, 3.4954888500775337`*^9}, {3.4954889799777155`*^9, 
   3.495489009627757*^9}, {3.495489141407942*^9, 3.495489151717956*^9}, {
   3.495489235178073*^9, 3.495489239268079*^9}, {3.495489386068284*^9, 
   3.4954894212383337`*^9}, {3.495489464438394*^9, 3.4954894647383947`*^9}, {
   3.495489500148444*^9, 3.4954895034984484`*^9}, {3.4954897331687703`*^9, 
   3.495489780118836*^9}, {3.495493913565876*^9, 3.495493935715907*^9}, {
   3.495494084919718*^9, 3.4954941083997507`*^9}, 3.495494511560315*^9, {
   3.495494580840412*^9, 3.4954945834404163`*^9}, {3.495494615970462*^9, 
   3.495494740200636*^9}, {3.495494880710832*^9, 3.4954948880508423`*^9}, {
   3.4954949819649754`*^9, 3.495494999445*^9}, {3.495495046515066*^9, 
   3.495495072875103*^9}, {3.4954951239351745`*^9, 3.4954951241651745`*^9}, {
   3.4954953673051157`*^9, 3.4954953726551237`*^9}, {3.495495450474448*^9, 
   3.495495453173253*^9}, {3.495495542140209*^9, 3.495495583792282*^9}, {
   3.4954957431465626`*^9, 3.4954957746118174`*^9}, {3.495495914419263*^9, 
   3.495495917804469*^9}, {3.495495955322535*^9, 3.4954960459586945`*^9}, {
   3.495496189588146*^9, 3.4954961923181515`*^9}, {3.4954973384365644`*^9, 
   3.495497357577798*^9}, {3.5240858715198665`*^9, 3.52408591925595*^9}, {
   3.5331536712917595`*^9, 3.5331536971617956`*^9}, {3.533223063022563*^9, 
   3.5332230658125668`*^9}, {3.533224894045127*^9, 3.5332248954551287`*^9}, 
   3.5363501685345306`*^9, {3.538444353705845*^9, 3.5384443676658645`*^9}, {
   3.5499343655595293`*^9, 3.549934366379531*^9}, {3.5693429326149015`*^9, 
   3.5693429326149015`*^9}, {3.5693520880530205`*^9, 
   3.5693520882530203`*^9}, {3.5693526036737423`*^9, 
   3.5693526036737423`*^9}, {3.5748843707814035`*^9, 
   3.5748843707814035`*^9}, {3.673926086267295*^9, 3.673926086267295*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["u", "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", "v", "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, {3.495401987881138*^9, 3.49540199674115*^9}, {
   3.495402119591322*^9, 3.4954021482513623`*^9}, {3.4954887467773895`*^9, 
   3.4954887749874287`*^9}, 3.495488944397666*^9, 3.495489263778113*^9, 
   3.4954893636582527`*^9, 3.4954898177188883`*^9, 3.495489875358969*^9, 
   3.495493833545764*^9, 3.495493864175807*^9, 3.4954940303560395`*^9, 
   3.4954941516698112`*^9, 3.4954942700599775`*^9, 3.4954948473707857`*^9, {
   3.495495264965372*^9, 3.4954952782653904`*^9}, {3.4954956850364604`*^9, 
   3.4954957088577023`*^9}, {3.495495865341577*^9, 3.4954958884920177`*^9}, {
   3.495496084225561*^9, 3.4954961029143944`*^9}, {3.495496211459385*^9, 
   3.4954962213810024`*^9}, 3.495496440218187*^9, {3.495497026732417*^9, 
   3.4954970596328745`*^9}, {3.495497256957621*^9, 3.495497302338101*^9}, 
   3.533151648818928*^9, 3.5331516797189713`*^9, 3.533151717349024*^9, {
   3.5331518776292486`*^9, 3.533151970249378*^9}, {3.5331520176994443`*^9, 
   3.5331520227894516`*^9}, {3.533152054329496*^9, 3.5331520626995077`*^9}, 
   3.533152270349798*^9, {3.533153065130911*^9, 3.5331530971109557`*^9}, 
   3.53315335008131*^9, {3.5331535194015465`*^9, 3.5331535356615696`*^9}, 
   3.5331536017616625`*^9, {3.533221927890974*^9, 3.533221930830978*^9}, {
   3.533222264011444*^9, 3.533222283731472*^9}, {3.5332223304615374`*^9, 
   3.5332223353515444`*^9}, 3.5363501604045196`*^9, {3.536361767566806*^9, 
   3.5363617697768087`*^9}, {3.5363666287016163`*^9, 
   3.5363666313816195`*^9}, {3.536366784271834*^9, 3.5363667868618374`*^9}, {
   3.536366923782029*^9, 3.5363669254320316`*^9}, {3.5365968786057057`*^9, 
   3.536596881944112*^9}, {3.5366940930205193`*^9, 3.53669410440917*^9}, {
   3.5366942507975435`*^9, 3.536694251403578*^9}, {3.536694493325415*^9, 
   3.536694495295528*^9}, 3.536980387788585*^9, {3.5384441491255584`*^9, 
   3.538444158185571*^9}, 3.5384445157160716`*^9, {3.5693429405449123`*^9, 
   3.569342962434943*^9}, {3.5693520924330263`*^9, 3.5693520926030264`*^9}, {
   3.5693526191837635`*^9, 3.569352629573778*^9}, {3.5748843099713182`*^9, 
   3.574884350491375*^9}, {3.673904336743265*^9, 3.6739043383933597`*^9}, {
   3.6739044842887044`*^9, 3.6739044858837957`*^9}, 3.6739260862872944`*^9, {
   3.673928711498319*^9, 3.673928719760331*^9}, 3.6739290128677483`*^9, 
   3.6739291985120134`*^9, {3.6740560437612896`*^9, 3.6740560501105013`*^9}, {
   3.6741635483903017`*^9, 3.6741635488143263`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"u_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Tan", "[", "v_", "]"}]}]}], ")"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"ExpandToSum", "[", 
        RowBox[{"u", ",", "x"}], "]"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"ExpandToSum", "[", 
            RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}], ")"}], "^", "n"}]}], 
     ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "m", ",", "n"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"LinearQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"u", ",", "v"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"LinearMatchQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"u", ",", "v"}], "}"}], ",", "x"}], "]"}], 
     "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369807322990675`*^9, 
   3.536980746969088*^9}, 3.538444106556738*^9, {3.5384444438259706`*^9, 
   3.5384444863560305`*^9}, 3.544471282097495*^9, {3.549934369376335*^9, 
   3.549934370546336*^9}, {3.555274643817338*^9, 3.555274658697359*^9}, {
   3.5693429690149527`*^9, 3.569343004485002*^9}, {3.569343115935158*^9, 
   3.5693431274951744`*^9}, {3.5693438869262376`*^9, 
   3.5693438923862453`*^9}, {3.5693452399481316`*^9, 
   3.5693452412481337`*^9}, {3.5693495213494267`*^9, 
   3.5693495533094716`*^9}, {3.5693499264999943`*^9, 3.569349931960002*^9}, {
   3.569351944542819*^9, 3.5693519905128837`*^9}, {3.569352647183803*^9, 
   3.5693527140438967`*^9}, {3.57488438244142*^9, 3.5748844576015253`*^9}, {
   3.6739043440206814`*^9, 3.6739043640248256`*^9}, {3.673904481345536*^9, 
   3.673904482711614*^9}, {3.673928282864618*^9, 3.67392830562665*^9}, 
   3.6739290389327855`*^9, 3.673929208992028*^9, {3.673929815862994*^9, 
   3.6739298244530067`*^9}, {3.674056056958913*^9, 3.6740560833883595`*^9}, {
   3.674163549152345*^9, 3.674163549559368*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"u_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Cot", "[", "v_", "]"}]}]}], ")"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"ExpandToSum", "[", 
        RowBox[{"u", ",", "x"}], "]"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Cot", "[", 
           RowBox[{"ExpandToSum", "[", 
            RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}], ")"}], "^", "n"}]}], 
     ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "m", ",", "n"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"LinearQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"u", ",", "v"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"LinearMatchQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"u", ",", "v"}], "}"}], ",", "x"}], "]"}], 
     "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369807322990675`*^9, 
   3.536980746969088*^9}, 3.538444106556738*^9, {3.5384444438259706`*^9, 
   3.5384444863560305`*^9}, 3.544471282097495*^9, {3.549934369376335*^9, 
   3.549934370546336*^9}, {3.555274643817338*^9, 3.555274658697359*^9}, {
   3.5693429690149527`*^9, 3.569343004485002*^9}, {3.569343115935158*^9, 
   3.5693431274951744`*^9}, {3.5693438869262376`*^9, 
   3.5693438923862453`*^9}, {3.5693452399481316`*^9, 
   3.5693452412481337`*^9}, {3.5693495213494267`*^9, 
   3.5693495533094716`*^9}, {3.5693499264999943`*^9, 3.569349931960002*^9}, {
   3.569351944542819*^9, 3.5693519905128837`*^9}, {3.569352647183803*^9, 
   3.5693527140438967`*^9}, {3.57488438244142*^9, 3.5748844576015253`*^9}, {
   3.6739043440206814`*^9, 3.673904397521742*^9}, {3.673904488535947*^9, 
   3.673904493736245*^9}, {3.6739282967146373`*^9, 3.6739283097866554`*^9}, 
   3.6739290389427853`*^9, 3.6739292116020317`*^9, {3.67392982706301*^9, 
   3.67392983417302*^9}, {3.674056070783538*^9, 3.6740560805647545`*^9}, {
   3.6741635704885654`*^9, 3.6741635709435916`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{
  3.4796643211106243`*^9, {3.536351324436149*^9, 3.536351326496152*^9}, {
   3.5363515481064625`*^9, 3.536351548866463*^9}}]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1908, 946},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "Rules", " ", "for", " ", "integrands", " ", "of", " ", "the", " ", 
      "form", " ", "(", "c", "+", "d", " ", "x", ")", "^", "m", " ", "(", "a",
       "+", "b", " ", "tan", "(", "e", "+", "f", " ", "x", ")", ")", "^", 
      "n"}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{783., 601.8},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->28.8},
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 6147, 102, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[6717, 126, 3471, 59, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[10213, 189, 4040, 70, 53, "Subsubtitle"],
Cell[14256, 261, 327, 5, 35, "Subsubsection"],
Cell[14586, 268, 1503, 34, 45, "Subsubsection"],
Cell[16092, 304, 1240, 21, 26, "Subsubsection"],
Cell[17335, 327, 2770, 65, 67, "Subsubtitle"],
Cell[20108, 394, 2904, 69, 67, "Subsubtitle"],
Cell[23015, 465, 771, 11, 35, "Subsubsection"],
Cell[23789, 478, 3909, 98, 104, "Code"],
Cell[27701, 578, 4090, 95, 114, "Code"],
Cell[31794, 675, 3299, 83, 114, "Code"],
Cell[35096, 760, 2886, 74, 114, "Code"],
Cell[37985, 836, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[38111, 843, 4207, 74, 53, "Subsubtitle"],
Cell[42321, 919, 488, 9, 35, "Subsubsection"],
Cell[42812, 930, 1299, 23, 26, "Subsubsection"],
Cell[44114, 955, 3666, 93, 115, "Subsubtitle"],
Cell[47783, 1050, 867, 12, 35, "Subsubsection"],
Cell[48653, 1064, 3935, 105, 154, "Code"],
Cell[52591, 1171, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[52717, 1178, 4331, 76, 53, "Subsubtitle"],
Cell[57051, 1256, 458, 8, 35, "Subsubsection"],
Cell[57512, 1266, 1109, 31, 42, "Subsubsection"],
Cell[58624, 1299, 1314, 37, 44, "Subsubsection"],
Cell[59941, 1338, 1369, 25, 26, "Subsubsection"],
Cell[61313, 1365, 4981, 134, 222, "Subsubtitle"],
Cell[66297, 1501, 771, 11, 35, "Subsubsection"],
Cell[67071, 1514, 3964, 107, 154, "Code"],
Cell[71038, 1623, 89, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[71176, 1631, 4953, 85, 53, "Subsubtitle"],
Cell[76132, 1718, 405, 6, 354, "Subsubsection"],
Cell[76540, 1726, 1803, 30, 289, "Subsubsection"],
Cell[78346, 1758, 2976, 61, 550, "Subsubtitle"],
Cell[81325, 1821, 771, 11, 354, "Subsubsection"],
Cell[82099, 1834, 3372, 72, 1079, "Code"],
Cell[85474, 1908, 89, 2, 354, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[85600, 1915, 5594, 96, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[91219, 2015, 5575, 94, 662, "Subsubtitle"],
Cell[CellGroupData[{
Cell[96819, 2113, 4697, 82, 662, "Subsubtitle"],
Cell[101519, 2197, 404, 6, 354, "Subsubsection"],
Cell[101926, 2205, 1878, 45, 449, "Subsubsection"],
Cell[103807, 2252, 1758, 41, 449, "Subsubsection"],
Cell[105568, 2295, 1639, 30, 354, "Subsubsection"],
Cell[107210, 2327, 4528, 117, 1355, "Subsubtitle"],
Cell[111741, 2446, 771, 11, 354, "Subsubsection"],
Cell[112515, 2459, 3982, 99, 1605, "Code"],
Cell[116500, 2560, 89, 2, 354, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[116626, 2567, 5590, 95, 662, "Subsubtitle"],
Cell[CellGroupData[{
Cell[122241, 2666, 4953, 87, 655, "Subsubtitle"],
Cell[127197, 2755, 542, 9, 354, "Subsubsection"],
Cell[127742, 2766, 1702, 35, 404, "Subsubsection"],
Cell[129447, 2803, 2269, 53, 394, "Subsubsection"],
Cell[131719, 2858, 1617, 28, 261, "Subsubsection"],
Cell[133339, 2888, 3845, 87, 655, "Subsubtitle"],
Cell[137187, 2977, 771, 11, 354, "Subsubsection"],
Cell[137961, 2990, 4124, 101, 1605, "Code"],
Cell[142088, 3093, 89, 2, 354, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[142214, 3100, 5092, 89, 662, "Subsubtitle"],
Cell[147309, 3191, 486, 7, 354, "Subsubsection"],
Cell[147798, 3200, 1838, 34, 354, "Subsubsection"],
Cell[149639, 3236, 3820, 92, 692, "Subsubtitle"],
Cell[153462, 3330, 771, 11, 354, "Subsubsection"],
Cell[154236, 3343, 4567, 116, 1605, "Code"],
Cell[158806, 3461, 89, 2, 354, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[158932, 3468, 5028, 87, 662, "Subsubtitle"],
Cell[163963, 3557, 486, 7, 354, "Subsubsection"],
Cell[164452, 3566, 2732, 44, 261, "Subsubsection"],
Cell[167187, 3612, 1817, 33, 354, "Subsubsection"],
Cell[169007, 3647, 3933, 94, 683, "Subsubtitle"],
Cell[172943, 3743, 771, 11, 354, "Subsubsection"],
Cell[173717, 3756, 4581, 113, 1605, "Code"],
Cell[178301, 3871, 89, 2, 354, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[178439, 3879, 4819, 84, 638, "Subsubtitle"],
Cell[183261, 3965, 405, 6, 354, "Subsubsection"],
Cell[183669, 3973, 2018, 46, 394, "Subsubsection"],
Cell[185690, 4021, 1623, 28, 261, "Subsubsection"],
Cell[187316, 4051, 3465, 78, 638, "Subsubtitle"],
Cell[190784, 4131, 771, 11, 354, "Subsubsection"],
Cell[191558, 4144, 3774, 92, 1605, "Code"],
Cell[195335, 4238, 89, 2, 354, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[195461, 4245, 4922, 86, 662, "Subsubtitle"],
Cell[200386, 4333, 405, 6, 354, "Subsubsection"],
Cell[200794, 4341, 1843, 42, 551, "Subsubsection"],
Cell[202640, 4385, 1777, 31, 354, "Subsubsection"],
Cell[204420, 4418, 3146, 70, 683, "Subsubtitle"],
Cell[207569, 4490, 771, 11, 354, "Subsubsection"],
Cell[208343, 4503, 3581, 86, 1345, "Code"],
Cell[211927, 4591, 89, 2, 354, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[212065, 4599, 5191, 92, 550, "Subsubtitle"],
Cell[217259, 4693, 405, 6, 354, "Subsubsection"],
Cell[217667, 4701, 2018, 46, 394, "Subsubsection"],
Cell[219688, 4749, 1899, 35, 354, "Subsubsection"],
Cell[221590, 4786, 3575, 74, 618, "Subsubtitle"],
Cell[225168, 4862, 771, 11, 354, "Subsubsection"],
Cell[225942, 4875, 3971, 91, 1079, "Code"],
Cell[229916, 4968, 89, 2, 354, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[230042, 4975, 5136, 90, 550, "Subsubtitle"],
Cell[235181, 5067, 405, 6, 354, "Subsubsection"],
Cell[235589, 5075, 1843, 42, 551, "Subsubsection"],
Cell[237435, 5119, 1854, 33, 354, "Subsubsection"],
Cell[239292, 5154, 3243, 68, 873, "Subsubtitle"],
Cell[242538, 5224, 771, 11, 354, "Subsubsection"],
Cell[243312, 5237, 3738, 85, 1079, "Code"],
Cell[247053, 5324, 89, 2, 354, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[247179, 5331, 5082, 89, 550, "Subsubtitle"],
Cell[252264, 5422, 432, 6, 354, "Subsubsection"],
Cell[252699, 5430, 9132, 151, 354, "Subsubsection"],
Cell[261834, 5583, 2328, 49, 354, "Subsubsection"],
Cell[264165, 5634, 2834, 58, 550, "Subsubtitle"],
Cell[267002, 5694, 771, 11, 354, "Subsubsection"],
Cell[267776, 5707, 3838, 91, 1345, "Code"],
Cell[271617, 5800, 89, 2, 354, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[271755, 5808, 5627, 97, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[277407, 5909, 4570, 82, 173, "Subsubtitle"],
Cell[281980, 5993, 327, 5, 93, "Subsubsection"],
Cell[282310, 6000, 1942, 43, 134, "Subsubsection"],
Cell[284255, 6045, 1597, 29, 93, "Subsubsection"],
Cell[285855, 6076, 3487, 82, 198, "Subsubtitle"],
Cell[289345, 6160, 771, 11, 93, "Subsubsection"],
Cell[290119, 6173, 4998, 118, 351, "Code"],
Cell[295120, 6293, 4159, 103, 379, "Code"],
Cell[299282, 6398, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[299408, 6405, 4671, 82, 172, "Subsubtitle"],
Cell[304082, 6489, 1528, 27, 96, "Subsubsection"],
Cell[305613, 6518, 3677, 89, 193, "Subsubtitle"],
Cell[309293, 6609, 771, 11, 93, "Subsubsection"],
Cell[310067, 6622, 4219, 106, 419, "Code"],
Cell[314289, 6730, 89, 2, 93, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[314415, 6737, 4822, 86, 144, "Subsubtitle"],
Cell[319240, 6825, 327, 5, 354, "Subsubsection"],
Cell[319570, 6832, 1737, 38, 432, "Subsubsection"],
Cell[321310, 6872, 1735, 38, 432, "Subsubsection"],
Cell[323048, 6912, 1750, 32, 354, "Subsubsection"],
Cell[324801, 6946, 3734, 77, 664, "Subsubtitle"],
Cell[328538, 7025, 771, 11, 354, "Subsubsection"],
Cell[329312, 7038, 3927, 92, 1079, "Code"],
Cell[333242, 7132, 89, 2, 354, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[333380, 7140, 5093, 80, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[338498, 7224, 4568, 80, 74, "Subsubtitle"],
Cell[343069, 7306, 386, 7, 67, "Subsubsection"],
Cell[343458, 7315, 2164, 54, 125, "Subsubsection"],
Cell[345625, 7371, 1571, 28, 50, "Subsubsection"],
Cell[347199, 7401, 3498, 83, 172, "Subsubtitle"],
Cell[350700, 7486, 771, 11, 67, "Subsubsection"],
Cell[351474, 7499, 4142, 100, 251, "Code"],
Cell[355619, 7601, 89, 2, 67, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[355745, 7608, 4576, 80, 74, "Subsubtitle"],
Cell[360324, 7690, 386, 7, 48, "Subsubsection"],
Cell[360713, 7699, 2712, 68, 65, "Subsubsection"],
Cell[363428, 7769, 1524, 27, 36, "Subsubsection"],
Cell[364955, 7798, 4789, 124, 306, "Subsubtitle"],
Cell[369747, 7924, 771, 11, 48, "Subsubsection"],
Cell[370521, 7937, 5424, 140, 250, "Code"],
Cell[375948, 8079, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[376086, 8087, 5137, 81, 68, "Subsubtitle"],
Cell[CellGroupData[{
Cell[381248, 8172, 4584, 80, 95, "Subsubtitle"],
Cell[385835, 8254, 435, 8, 48, "Subsubsection"],
Cell[386273, 8264, 2515, 63, 64, "Subsubsection"],
Cell[388791, 8329, 1571, 28, 36, "Subsubsection"],
Cell[390365, 8359, 3763, 84, 100, "Subsubtitle"],
Cell[394131, 8445, 771, 11, 48, "Subsubsection"],
Cell[394905, 8458, 3871, 93, 180, "Code"],
Cell[398779, 8553, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[398905, 8560, 4546, 80, 95, "Subsubtitle"],
Cell[403454, 8642, 386, 7, 48, "Subsubsection"],
Cell[403843, 8651, 2634, 67, 64, "Subsubsection"],
Cell[406480, 8720, 1524, 27, 36, "Subsubsection"],
Cell[408007, 8749, 4771, 127, 307, "Subsubtitle"],
Cell[412781, 8878, 771, 11, 48, "Subsubsection"],
Cell[413555, 8891, 5572, 147, 250, "Code"],
Cell[419130, 9040, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[419268, 9048, 5313, 84, 53, "Subsubtitle"],
Cell[424584, 9134, 1038, 22, 359, "Subsubsection"],
Cell[425625, 9158, 993, 22, 187, "Subsubsection"],
Cell[426621, 9182, 1086, 25, 282, "Subsubsection"],
Cell[427710, 9209, 1341, 18, 174, "Subsubsection"],
Cell[429054, 9229, 2667, 56, 393, "Subsubtitle"],
Cell[431724, 9287, 771, 11, 253, "Subsubsection"],
Cell[432498, 9300, 5839, 137, 1902, "Code"],
Cell[438340, 9439, 3180, 66, 848, "Code"],
Cell[441523, 9507, 89, 2, 253, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[441649, 9514, 5778, 96, 53, "Subsubtitle"],
Cell[447430, 9612, 448, 6, 354, "Subsubsection"],
Cell[447881, 9620, 2809, 46, 261, "Subsubsection"],
Cell[450693, 9668, 3589, 65, 550, "Subsubtitle"],
Cell[454285, 9735, 771, 11, 354, "Subsubsection"],
Cell[455059, 9748, 5104, 95, 1079, "Code"],
Cell[460166, 9845, 5109, 95, 1187, "Code"],
Cell[465278, 9942, 190, 4, 354, "Subsubsection"]
}, Closed]]
}
]
*)

(* End of internal cache information *)